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)
 
  Dim F2 As New Form2()
  F2.Show()
End Sub
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer1.Tick
  Me.Close()
End Sub