'Est ejemplo te muestra 5 segundos el form splash y luego se cierra y muestra tu
'aplicación.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Un pequeño ejemplo: inserta un timer en tu form splash
declaralo en tu formulario Splash
Dim Inicio As TimeSpan
Dim Termino As TimeSpan
Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Inicio = Now.TimeOfDay
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim seg As Int32
Termino = Now.TimeOfDay
seg = Termino.Subtract(Inicio).TotalSeconds
If seg = 5 Then
Timer1.Stop()
Me.Close()
End If
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''Declaralo en tu aplicacion el form principal ejm:
Dim frmsplash As New SplashScreen1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
frmsplash.ShowDialog()
End Sub
