在 sub main 里面使用多线程监控程序运行过程中可能出现的Bug

Public Class mainClass main
    Public Shared Sub main()Sub main()
        '定义出错机制线程
        '其实就是一个多线程，在程序运行过程中，此
        AddHandler Application.ThreadException, AddressOf OnThreadException

        Application.EnableVisualStyles()
        Application.Run(New Formglobal)

    End Sub

ThreadException#Region "ThreadException"
    ' Handles the exception event.
    Public Shared Sub OnThreadException()Sub OnThreadException(ByVal sender As Object, ByVal t As ThreadExceptionEventArgs)
        Dim result As DialogResult = System.Windows.Forms.DialogResult.Cancel
        Try
            result = ShowThreadExceptionDialog(t.Exception)
        Catch
            Try
                MessageBox.Show("Fatal Error", "Fatal Error", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Stop)
            Finally
                Application.Exit()
            End Try
        End Try

        ' Exits the program when the user clicks Abort.
        If (result = System.Windows.Forms.DialogResult.Abort) Then
            Application.Exit()
        End If
    End Sub

    ' Creates the error message and displays it.
    Private Shared Function ShowThreadExceptionDialog()Function ShowThreadExceptionDialog(ByVal e As Exception) As DialogResult
        Dim errorMsg As StringWriter = New StringWriter
        errorMsg.WriteLine("------------ 有错误发生 ------------:")
        errorMsg.WriteLine("")
        If TypeOf e Is Facet_Demo.FacetException Then
            errorMsg.WriteLine(CType(e, FacetException).ErrorMessage)
        Else
            errorMsg.WriteLine(e.Message)
        End If

        errorMsg.WriteLine("------------------------------------")
        'errorMsg.WriteLine("Stack Trace:")
        'errorMsg.WriteLine(e.StackTrace)
        Return MessageBox.Show(errorMsg.ToString(), "Application Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Function
#End Region

End Class

    sealed class Program
    {
        /**//// <summary>
        /// 应用程序入口.
        /// </summary>
        [STAThread]
        static void Main()
        {


            //添加异常处理事件
            Application.ThreadException += new ThreadExceptionEventHandler(ApplicationThreadException);
            Application.EnableVisualStyles();
            Application.SetCompatibleTextRenderingDefault(false);
            Application.Run(new FormLogon());
        }

        /**//// <summary>
        /// 异常处理模块，如果获取异常，将显示Error页面
        /// </summary>
        /// <param name="source"></param>
        /// <param name="e"></param>
        private static void ApplicationThreadException(object source, System.Threading.ThreadExceptionEventArgs e)
        {
            if (e == null) return;
            UtilExpt.Publish(e.Exception);
        }

    }