无法从另一个线程中隐藏表单

问：

我尝试过使用窗体或控件，但没有任何效果。

主线程上的两个表单（FrmMain 和 FrmWait）和另一个长工作线程。

FrmWait 仅显示带有“正在下载”动画 gif 的 PictureBox。我想从线程中隐藏 FrmWait。

在 FrmMain 中

    Private Sub StartThread()
        Debug.Print("Main ThreadId is: " & System.Environment.CurrentManagedThreadId)

        FrmWait.Show()
        Dim trd As New Thread(Sub()
                                  Flag.Agisci(Num, Value1, value2)
                              End Sub)
        trd.Start()
    End Sub

    Private Sub FrmMain_HandleCreated(sender As Object, e As EventArgs) Handles Me.HandleCreated
        Debug.Print("FrmMain Handle has been created: " & Me.Handle.ToString)
    End Sub

在 FrmWait 中

   Private Delegate Sub CloseForm(hide As Boolean)
  
   Public Sub CloseWait(hide As Boolean)
        Debug.Print("******************* Entring in CloseWait")
        Try
            Dim h As IntPtr = Me.Handle
            Debug.Print("................... InvokeRequired is: " & Me.InvokeRequired.ToString & " on Handle: " & h.ToString)
            If Me.InvokeRequired Then
                Debug.Print("----------- Invoke is Required !!")
                Me.Invoke(New CloseForm(AddressOf CloseWait), hide)
            Else
                Debug.Print("+++++++++++ Calling Me.Visible = " & hide.ToString)
                Me.Visible = hide
            End If
        Catch ex As Exception
            Debug.Print(ex.ToString)
        End Try
    End Sub

    Private Sub FrmWait_HandleCreated(sender As Object, e As EventArgs) Handles Me.HandleCreated
        Debug.Print("FrmWait Handle has been created: : " & Me.Handle.ToString)
    End Sub

在 Thread 类中：

    Public Sub Agisci(Num As Integer, Value1 As String, Value2 As String)
        Try
            Debug.Print("Task ThreadId is: " & System.Environment.CurrentManagedThreadId)
            Sleep(2000)
            Throw New Exception("Foo")
      
            'some stuff bypassed by the exception

        Catch ex As Exception
            Debug.Print(ex.Message)

            FrmWait.CloseWait(True)

            'this is another Form that is correctly displayed
            FrmMessBox.SetText(ex.Message)
            FrmMessBox.ShowDialog()
        End Try
    End Sub

输出：

FrmMain 句柄已创建： 4785876
Main ThreadId 为： 1 FrmWait 句柄已创建： 655546
任务 ThreadId 为： 5
Eccezione generata： 'System.Exception' in MyApp.exe -Foo
---------- Entring in CloseWait
FrmWait
Handle has been created： 917984
----------- InvokeRequired is： False on Handle： 917984 '****** FALSE?????
+++++++++++ Calling Me.Visible = False '************* 不起作用！