高手请进！！

Question

我是VB的初学者，最近买了本书，主要是讲述vb网络编程方面的，在计算机上调试了一个关于WINSOCK编程的例程，是采有UTP协议的，引用的vb6.0中的microsoft Winsock Control 6.0,不知为什么一运行到winsock的senddata方法，就提示实时错识'126'，请高手指点！！具体代码如下：Private Sub cmdsend_Click()
  '发送数据
  sckclient.SendData Txtsend.Text
End SubPrivate Sub Form_Load()
With sckclient
   .RemoteHost = "127.0.0.1"
   .RemotePort = 1002
   .LocalPort = 1001
   .Protocol = sckUDPProtocol
   .Bind 1001
      End WithEnd SubPrivate Sub sckclient_DataArrival(ByVal bytesTotal As Long)
Dim mystr As Stringsckclient.GetData mystr
Txtget.Text = Txtget.Text + Chr(10) + Chr(13) + mystrEnd Sub

Answer 1

或者初始化为：
With sckclient
   .RemoteHost = "127.0.0.1"
   .RemotePort = 1002    端口相同
   .LocalPort = 1002
   .Protocol = sckUDPProtocol
   .Bind 1002
End With