请帮我看看这段代码（在线等待）

Question

udpclient.GetData Text2.Text, vbString改为：
dim s as string 
udpclient.getdata s
text2.text=sudpserver同理

Answer 1

下面用UDP的没有问题，我估计是你的GETDATA那个的原因，不能直接那么赋值
用一个变量试试
      '发送端
      private sub form_load()
        with winsock1
             .RemoteHost="127.0.0.1"
             .RemotePort=4002
             .LocalPort=4001
             .bind 4001 
        end with
      end sub
      '发送数据
      private sub command1_click()
        winsock1.senddata text1.text
      end sub
接收端：
      Private Sub Form_Load()
        With Winsock1
             .RemoteHost = "127.0.0.1"
             .RemotePort = 4001
             .LocalPort = 4002
             .Bind 4002
        End With
      End Sub
      Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
         Dim str1 As String
         Winsock1.GetData str1, vbString
         Text1.Text = str1
      End Sub