Module Module1
 
    Dim WithEvents t As New Timer
    Dim WithEvents f As New Form1
 
    Public Sub main()
        t.Interval = 5000
        t.Enabled = True
        Application.Run()
    End Sub
 
    Private Sub t_Tick(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles t.Tick
        f.Show()
    End Sub
 
    Private Sub f_Closed(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles f.Closed
        Application.Exit()
    End Sub
 
End Module

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist