Namespace My
 
    ' Für MyApplication sind folgende Ereignisse verfügbar:
    ' 
    ' Startup: Wird beim Starten der Anwendung noch vor dem Erstellen des 
    ' Startformulars ausgelöst.
    ' Shutdown: Wird nach dem Schließen aller Anwendungsformulare ausgelöst. 
    ' Dieses Ereignis wird nicht ausgelöst, wenn die Anwendung nicht normal 
    ' beendet wird.
    ' UnhandledException: Wird ausgelöst, wenn in der Anwendung eine 
    ' unbehandelte Ausnahme auftritt.
    ' StartupNextInstance: Wird beim Starten einer Einzelinstanzanwendung 
    ' ausgelöst, wenn diese bereits aktiv ist. 
    ' NetworkAvailabilityChanged: Wird beim Herstellen oder Trennen der 
    ' Netzwerkverbindung ausgelöst.
 
Partial Friend Class MyApplication
 
 
Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As _
  Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
 
    'Laedt das gewünschte Formular
    My.Forms.Splash.ShowDialog
 
    'Führt die Aufgaben aus
Try
    My.Forms.Splash.label.text = "Mache gerade irgendwas"
    'Schreibe irgendwas in die Reg
    'Hier kommen deine Aufgaben hin
    My.Forms.Splash.label.text = "Bin fertig und mach gleich noch was"     
    'Schreibe noch irgendwas in die Reg
    'Hier kommen deine Aufgaben hin
    My.Forms.Splash.label.text = "Bin fertig  gleich gehts weiter"         
Catch ex As Exception
    'Rückmeldung das es nicht geklappt hat
    My.Forms.Splash.label.text = "Das mit dem mach war leider nix"
finally
    'Schliesst splash wieder
    My.Forms.Splash.close	
End Try
 
 
End Sub
 
Private Sub MyApplication_UnhandledException(ByVal sender As Object, ByVal e As _
  Microsoft.VisualBasic.ApplicationServices.UnhandledExceptionEventArgs) _
  Handles Me.UnhandledException
            e.ExitApplication = False
 
            MessageBox.Show("Es ist ein Fehler aufgetreten. Evtl. werden nicht" & _
              "alle Funktionen von " & _
                            "Ihrem Betriebssystem unterstützt. Wir möchten uns" & _
                            "für die entstandenen " & _
                            "Unannehmlichkeiten entschuldigen." & vbCrLf & _
                            vbCrLf & _
                            "Details für Ihren Support: " & vbCrLf & vbCrLf & _
                            e.Exception.ToString, _
                            " ", MessageBoxButtons.OK, _
                            MessageBoxIcon.Exclamation)
 
End Sub
 
End Class
 
End Namespace