如何在多线程应用程序中捕获主线程可以监视的事件?

我有一个控制台应用程序(VB.NET)。启动时,它生成工作线程,在数据库中查找工作并执行任务,然后查找下一个任务(基本上是工作流)。

我遇到的问题是,我的事件处理程序位于生成工作线程的主线程中。这些工作人员如果出错,将向公共委托引发事件。然而,我的主线程并没有检测到这些事件,我也不知道如何实现它。我的目的是完成所有日志记录(文本/数据库)、电子邮件警报,并重新启动worker以找到另一个没有出错的任务(这将在LogErrorMessage例程中进行扩展,目前我只是将其保留为一个简单的控制台。Writeline,以便查看该方法是否被激发)

以下是我尝试执行的代码:

记录器类别:

Public Delegate Sub LogDelegateError(ByVal Ex As Exception)

Public Class EventLogger
    Public Event EventError As LogDelegateError

    Public Sub New()
    End Sub

    Public Sub LogError(ByVal ex As Exception)
        RaiseEvent EventError(ex)
    End Sub
End Class

主线程:

Private WithEvents _ErrorLogger As EventLogger

Public Sub Process()
     _ErrorLogger = New EventLogger
     AddHandler _ErrorLogger.EventError, New LogDelegateError(AddressOf LogErrorMessage)

     [Loop]
     Dim tWorker As Thread = New Thread(AddressOf oWorker.MainProcess)
     tWorker.Priority = WorkerNode.Attributes(SETTING_NAME_PRIORITY).Value
     tWorker.Start()
     [End Loop]

     [In Finally]
     RemoveHandler _ErrorLogger.EventError, New LogDelegateError(AddressOf LogErrorMessage)
End Sub

Private Sub LogErrorMessage(ByVal ex As Exception) Handles _ErrorLogger.EventError
     Console.WriteLine()
     Console.WriteLine("INTERNAL ERROR:")
     Console.WriteLine(ex.ToString())
     Console.WriteLine()
End Sub

Private _Log As New EventLogger
Public Sub MainProcess()
     Try
           [SOME WORK]
     Catch ex As Exception
           Me._Log.LogError(ex)
     End Try
End Sub