Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer1.Tick
        Frm_Main.Show()
        Timer1.Enabled = False
        'unload(SplashScreen1) 'So ging es unter VB 6
        'Me.Close()         'Beendet die Anwendung (unter VB 6 steht Me für das _
          akt. Formular)
        'SplashScreen1.Close() 'Bringt auch einen Fehler
        'Close(SplashScreen1) 'und das auch
 
    End Sub