Crear bienvenida que desaparece con Timer

Hola, en esta página les traigo un tip bien interesante, como hacer a un form de .NET en VB hacerle un efecto transparente cuando va desapareciendo y que después nos abra nuestro formulario principal.

1.- Bueno lo primero es crear nuestro proyecto y darle el nombre que queramos.

2.- Le daremos clic derecho a nuestro proyecto y seleccionaremos agregar, luego escogemos Windows Forms.

3.- Buscamos el formulario que viene por defecto y le ponemos un nombre.

4.- Hay que tener en cuenta que el timer debe tener su propiedad en true, y que su intervalo deber ser 1000 en el caso de 10 segundos o ponerle el intervalo que necesitamos.

4.- Una vez abierto agregaremos un control Timer, en mi caso le di el nombre Temporizador a mi timer, y veremos algo así:

5.- Luego daremos doble clic al formulario y le escribiremos lo siguiente:

 

 

Private Sub FrmBienvenida_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

 

      Temporizador.Start() 

End Sub

 

 6.- Este paso anterior lo que hizo fui decirle al mi Timer que comience a contar.

7.- Luego daremos doble clic al Timer, y escribimos el codigo como sigue: 

 

 

 

 

 

 

Private

 

Sub Temporizador_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Temporizador.Tick 

 

    While Me.Opacity > 0 

 

        Me.Opacity -= 0.00001 

 

    End While 

 

    Me.Close() 

 

End Sub

8.- Y listo con eso nuestro form de bienvenida tendrá un efecto de desvanecimiento hasta que termina cerrándose.

Espero haya servido mi código y saludos…