Module modException
    Public Sub MYExHandler(ByVal sender As Object, ByVal e As _
      UnhandledExceptionEventArgs)
        Dim EX As Exception
        EX = e.ExceptionObject
        CallfrmRequest(EX, sender)
    End Sub
 
    Public Sub MYThreadHandler(ByVal sender As Object, ByVal e As _
      Threading.ThreadExceptionEventArgs)
        CallfrmRequest(e.Exception, sender)
    End Sub
 
    Private Sub CallfrmRequest(ByVal exept As Exception, ByVal sender As Object)
    ...
    End Sub
End Module

Public Class frmMain
    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'Exceptions abfangen
        Dim currentDomain As AppDomain = AppDomain.CurrentDomain
        AddHandler currentDomain.UnhandledException, AddressOf MYExHandler
        AddHandler Application.ThreadException, AddressOf MYThreadHandler
        ...
    End Sub
 
    Private Sub XY_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles XY.Click
        'Exception XY
    End Sub
End Class