Sub Main()
        '*** Startprozedur ***
 
        'XP-Stil aktivieren, Voraussetzung: Steuerelemente mit 
        ' FlatStyle=FlatStyle.System
        Application.EnableVisualStyles()
        Application.DoEvents()
 
        'Hauptfenster instanzieren
        Dim MainForm As New frmMain
 
        'Splashfenster anzeigen
        Dim SplashForm As New frmSplash
        SplashForm.Show()
 
        'Anwendung mit Hauptfenster starten
        Application.Run(MainForm)
    End Sub