Irvin Pool Panta GarciaPublicado en Vb.net

Creamos nuestra venta de bienvenida:

Agregamos un Timer a nuestro formulario

Agregamos un intervalo de tiempo a nuestro timer

En nuestra clase del formulario:

Private x As Integer = 0

Private Sub mostrarNotificacion()
        Me.Location = New Point(Screen.PrimaryScreen.Bounds.Width - 300, _
                                Screen.PrimaryScreen.Bounds.Height)
    End Sub

Dentro del evento Tick del Control Timer colocamos lo siguiente

If Me.Opacity = 0 Then
            Me.Close()
        End If

        If x = 200 Then
            Me.Opacity -= 0.02
        End If

        If Not Me.Location.Y = Screen.PrimaryScreen.WorkingArea.Height = 100 Then
            Me.Location = New Point(Me.Location.X - 2, Me.Location.Y - 2)
        End If

        If Not x = 200 Then
            x += 1
        End If

En el evento Load del Formulario llamamos a nuestro metodo mostrarNotificacion()

Private Sub FlotanteBienvenido_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        mostrarNotificacion()
End Sub

por ultimo al inciar sesion en nuestro sistema, llamamos a nuestro formulario

FlotanteBienvenido.lblTexto.Text = "Bienvenido al sistema"
FlotanteBienvenido.Show()