Обработка всех исключений автоматически

SetErrorMode(SetErrorMode(ErrorModes.SYSTEM_DEFAULT) Or ErrorModes.SEM_NOGPFAULTERRORBOX Or ErrorModes.SEM_FAILCRITICALERRORS Or ErrorModes.SEM_NOOPENFILEERRORBOX)

<DllImport("kernel32.dll")> _
Function SetErrorMode(ByVal mode As ErrorModes) As ErrorModes
End Function
 
<Flags>
Enum ErrorModes As UInteger
    SYSTEM_DEFAULT = &h0
    SEM_FAILCRITICALERRORS = &h0001
    SEM_NOALIGNMENTFAULTEXCEPT = &h0004
    SEM_NOGPFAULTERRORBOX = &h0002
    SEM_NOOPENFILEERRORBOX = &h8000
End Enum

    Shared Sub Main()
        SetErrorMode(SetErrorMode(ErrorModes.SYSTEM_DEFAULT) Or ErrorModes.SEM_NOGPFAULTERRORBOX Or ErrorModes.SEM_FAILCRITICALERRORS Or ErrorModes.SEM_NOOPENFILEERRORBOX)
        Application.Run(Form1)
    End Sub

Imports Microsoft.VisualBasic.ApplicationServices
 
Namespace My
    ' Для MyApplication имеются следующие события:
    ' Startup: возникает при запуске приложения перед созданием начальной формы.
    ' Shutdown: возникает после закрытия всех форм приложения. Это событие не происходит при прерывании работы приложения из-за ошибки.
    ' UnhandledException: возникает, если в приложение обнаруживает необработанное исключение.
    ' StartupNextInstance: возникает при запуске приложения, допускающего одновременное выполнение только одной копии, если это приложение уже активно. 
    ' NetworkAvailabilityChanged: возникает при изменении состояния подключения: при подключении или отключении.
    Partial Friend Class MyApplication
 
        Declare Function SetErrorMode Lib "KERNEL32.DLL" (ByVal mode As ErrorModes) As ErrorModes
 
        Enum ErrorModes As UInteger
            SYSTEM_DEFAULT = &H0
            SEM_FAILCRITICALERRORS = &H0001
            SEM_NOALIGNMENTFAULTEXCEPT = &H0004
            SEM_NOGPFAULTERRORBOX = &H0002
            SEM_NOOPENFILEERRORBOX = &H8000
        End Enum
 
        Private Sub MyStartup(sender As Object, e As StartupEventArgs) Handles Me.Startup
            SetErrorMode(SetErrorMode(ErrorModes.SYSTEM_DEFAULT) Or ErrorModes.SEM_NOGPFAULTERRORBOX Or ErrorModes.SEM_FAILCRITICALERRORS Or ErrorModes.SEM_NOOPENFILEERRORBOX)
        End Sub
 
    End Class
End Namespace