使用invoke vb.net在另一个表单中设置标签

我正在寻找如何使用invoke在另一个类中设置标签 这是我在form1.vb中的代码

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Try
        listener = New TcpListener(IPAddress.Any, 6969)
        listener.Start()
        listener.BeginAcceptTcpClient(New AsyncCallback(AddressOf AcceptClient), listener)

        'Me.WindowState = FormWindowState.Maximized
        'bacaini()
        'connectdatabase()
    Catch ex As Exception
        errorLog("formload", ex.Message, ex.ToString)
    End Try

End Sub

Delegate Sub _cUpdate(ByVal str As String, ByVal lable As Label)

Sub UpdateList(ByVal str As String, ByVal lable As Label)
    Try
        If lable.InvokeRequired Then
            lable.Invoke(New _cUpdate(AddressOf UpdateList), str, lable)
        Else

            lable.Text = str
        End If

    Catch ex As Exception
        'errorLog("updatelist", ex.Message, ex.ToString)
    End Try
End Sub
Sub MessageReceived(ByVal str As String)
   UpdateList("this work", label1)
End Sub

---

我想要在form2.vb中更改设置label1，但它不起作用。有人能帮我吗

您遇到了什么错误？没有错误，但我无法在另一个表单中设置label，所以应用程序会编译和生成？是否正确引用了

标签1

。是否应该是，form2.label1？我尝试了一下，但是它不起作用Sub MessageReceived（ByVal str作为String）UpdateList（“this work”，form2.label1）End Sub