Private Sub MYExHandler(ByVal sender As Object, _
        ByVal e As UnhandledExceptionEventArgs)
        Dim EX As Exception
        EX = e.ExceptionObject
        Console.WriteLine(EX.StackTrace)
    End Sub
 
    Private Sub MYThreadHandler(ByVal sender As Object, _
      ByVal e As Threading.ThreadExceptionEventArgs)
        Console.WriteLine(e.Exception.StackTrace)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        ' Get the your application's application domain.
        Dim currentDomain As AppDomain = AppDomain.CurrentDomain
 
        ' Define a handler for unhandled exceptions.
        AddHandler currentDomain.UnhandledException, AddressOf MYExHandler
 
        ' Define a handler for unhandled exceptions for threads behind forms.
        AddHandler Application.ThreadException, AddressOf MYThreadHandler
 
    End Sub