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
'Wenn noch eine Instanz gestartet wird (z.B.: Einzelinstanzanwendung)
        Private Sub MyApplication_StartUpNextInstance(ByVal sender As Object, _
          ByVal e As _
          Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArg_
          s) Handles MyClass.StartupNextInstance
            On Error Resume Next
            MessageBox.Show("Es läuft derzeit eine Instanz von" & _
              "Testanwendung33", "So aber nicht! ", MessageBoxButtons.OK, _
              MessageBoxIcon.Error)
        End Sub
'Beim Start der Anwendung
        Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As _
          Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles _
          MyClass.Startup
            On Error Resume Next
 
        End Sub
'Beim beenden der Anwendung
        Private Sub myApplicatin_Shutdown(ByVal sender As Object, ByVal e As _
          System.EventArgs) Handles MyClass.Shutdown
            On Error Resume Next
 
        End Sub
'Bei einem unvorhergesehen Fehler
        Private Sub MyApplication_UnhandledException(ByVal sender As Object, _
          ByVal e As _
          Microsoft.VisualBasic.ApplicationServices.UnhandledExceptionEventArgs_
          ) Handles MyClass.UnhandledException
            On Error Resume Next
 
        End Sub
'Wenn sich die verfügbarkeit eines Netzwerkes geändert hat (?)
        Private Sub MyApplication_NetworkAvailabilityChanced(ByVal sender As _
          Object, ByVal e As _
          Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs) Handles _
          MyClass.NetworkAvailabilityChanged
            On Error Resume Next
 
        End Sub
    End Class
End Namespace