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_UnhandledException(sender As Object, e As _
        Microsoft.VisualBasic.ApplicationServices.UnhandledExceptionEventArgs) _
        Handles Me.UnhandledException
 
      End Sub
      Shared Sub New()
         AddHandler System.Windows.Forms.Application.ThreadException, AddressOf _
           ThreadException
      End Sub
      Public Shared Sub ThreadException(sender As Object, e As _
        System.Threading.ThreadExceptionEventArgs)
 
      End Sub
   End Class
 
End Namespace

(Rechtschreibfehler urheberrechtlich geschützt)