作者:VB.NET开发
项目:Microsoft.VisualBasic.ApplicationService
Private Sub MyApplication_UnhandledException(
sender As Object,
e As Microsoft.VisualBasic.ApplicationServices.UnhandledExceptionEventArgs
) Handles Me.UnhandledException
My.Application.Log.WriteException(e.Exception,
TraceEventType.Critical,
"Unhandled Exception.")
End Sub