Module start
  Public Sub Main()
    ' Start-Prozedur mit Definition einer 
    ' globalen Fehlerbehandlungsroutine
    AddHandler Application.ThreadException, _
      AddressOf GeneralErrorHandler
 
    ' Start-Formular laden und anzeigen
    Application.EnableVisualStyles()
    Application.Run(New Form1)
  End Sub
 
  ' zentrale Fehlerbehandlung
  Private Sub GeneralErrorHandler(ByVal sender As Object, _
    ByVal e As System.Threading.ThreadExceptionEventArgs)
 
    ' Fehlertext zusammenbauen
    Dim sError As String = "Unerwarteter Anwendungsfehler: " & vbCrLf & _
      e.Exception.Message.ToString & vbCrLf & vbCrLf & _
      "Source: " & e.Exception.StackTrace.ToString & vbCrLf & vbCrLf & _
      "Bitte kontaktieren Sie den Hersteller"
 
    ' hier: MsgBox mit Fehlernummer und Beschreibung anzeigen...
    MsgBox(sError, MsgBoxStyle.Critical Or MsgBoxStyle.OKOnly, "Fehler...")
 
    ' ... und Anwendung beenden
    Application.Exit()
  End Sub
End Module