当 Sub Main 不可访问时，在 VB.NET 中捕获 ThreadingException

Imports System.Threading

Module Module1

    Sub Main()
        Try
            ' 在这里编写主程序的代码
        Catch ex As Threading.ThreadStateException
            ' 处理线程状态异常的代码
            Console.WriteLine("线程状态异常：" & ex.Message)
        Catch ex As Threading.ThreadAbortException
            ' 处理线程中止异常的代码
            Console.WriteLine("线程中止异常：" & ex.Message)
        Catch ex As Exception
            ' 处理其他异常的代码
            Console.WriteLine("其他异常：" & ex.Message)
        End Try
    End Sub

End Module