Sub send(ByVal mydata As String) '发送信息
         Form1.Winsock1.SendData(mydata)

     End Sub
  
     Sub GetMydata(ByVal size As Object) '接受信息
         '返回接收到的信息
         Form1.Winsock1.GetData(mydata, VariantType.String)
          ‘取出判断码
           Select Case Left(mydata, 1)
             Case 1   '聊天的信息
                 '加上日期，时间，对方名字，聊天内容，放入Text1.Text中
                 Form1.Text1.Text = Now & " " & Form1.label1(3).Text & ":" & Chr(13) & Chr(10) & Form1.Text1.Text
             《 Form1.Winsock1.GetData(mydata, VariantType.String)》
           上面这句提示       没有可访问的“GetData”接受此数目的参数，因此重载决策失败     请问下怎么解决

不懂，顶起。
太阳城娱乐网http://www.