线程中的问题，从另一个模块内部访问

Question

我在主窗体中启动一个线程，在其中我调用一个模块，在该模块中，我处理一些文件，在每个文件之后，我调用：

MainForm.IncreaseProgressBar

这是：

Public Delegate Sub IncreaseProgressBarCallback()
Public Sub IncreaseProgressBar()
If MAPIProgressBarX.InvokeRequired Then
   Invoke(Sub() MAPIProgressBarX.Value = MAPIProgressBarX.Value + 1)
Else
   MAPIProgressBarX.Value = MAPIProgressBarX.Value + 1
End If
End Sub

根本不起作用，进度条不会通过！ 任何解决方法？ :( 使用 vb.NET 4.0