' In Form1:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
  ' Die Anzeige-Dauer in Millisekunden
  Timer1.Interval = 4000
  Timer1.Start()
 
  ' Einblenden 
  FensAnim(Me, FensAnimArt.EINBLENDEN, FensAnimEffekt.DIMMEN, _
    FensAnimRichtung.W, 1400)
End Sub
 
Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles MyBase.Closed
 
  ' Ausblenden 
  FensAnim(Me, FensAnimArt.AUSBLENDEN, FensAnimEffekt.DIMMEN, _
    FensAnimRichtung.W, 1400)
 
End Sub
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer1.Tick
  Me.Close()
End Sub
 
' ---------------------------------------------------
 
' In Form2:
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
  Dim F1 As New Form1()
  F1.ShowDialog()
End Sub