Public NotInheritable Class SplashScreen1
 
Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles Me.Load
 
Me.Show()
Dim Zeit As Stopwatch
Dim Ende As Integer
Zeit = Stopwatch.StartNew
Do Until Ende > 3000
Ende = Zeit.ElapsedMilliseconds
Loop
Zeit.Stop()
Me.Close()
 
End Sub
 
End Class

Public Class Form1
 
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles Me.Load
SplashScreen1.ShowDialog()
End Sub
End Class