sockets 未处理 System.NotSupportedException如何解决？

    Sub ReciveMsg()
        Dim bytes() As Byte = New Byte(256) {}
        Dim data As String = String.Empty
        'Dim recvBytes As Byte() = New Byte(256) {}
        Dim intI As Integer
        Dim strRec As String = ""
        Dim bytesRec As Integer = cliSocket.Receive(bytes)
        For intI = 0 To bytes.Length - 2
            strRec = strRec & Hex(bytes(intI)).PadLeft(2, "0")
        Next
        js = Mid(strRec, 1, 2)
        TextBox2.Text = js
    End Sub

textbox2.text=js处，错误如何解决？
未处理 System.NotSupportedException
Control.Invoke 必须用于与在独立线程上创建的控件交互。 --------------------编程问答-------------------- 用同步方式就不会有这个问题 --------------------编程问答-------------------- 我水平很低，我想在现有的基础上修改，麻烦高手们给看一下。 --------------------编程问答-------------------- 大致可以google：http://www.google.cn/search?q=winform+%E5%A4%9A%E7%BA%BF%E7%A8%8B&rls=com.microsoft:zh-cn:IE-SearchBox&ie=UTF-8&oe=UTF-8&sourceid=ie7 --------------------编程问答-------------------- http://www.google.cn/search?q=winform+%E5%A4%9A%E7%BA%BF%E7%A8%8B&rls=com.microsoft:zh-cn:IE-SearchBox&ie=UTF-8&oe=UTF-8&sourceid=ie7 --------------------编程问答-------------------- 不明白如何使用.

补充：.NET技术 ,  VB.NET