问一个UDP 通信的例子

Question

Private Sub clientsck_DataArrival(ByVal bytesTotal As Long)
  Dim strData As String
     clientsck.GetData strData, vbString
    txtOutput.Text = strDataEnd SubPrivate Sub Command1_Click()
Dim cmd(0 To 3) As Byte
cmd(0) = &H40
cmd(1) = &H2
cmd(2) = &H2
cmd(3) = &HBC
   clientsck.SendData cmd(0) '发送文本End SubPrivate Sub Command2_Click()
With clientsck
     .RemoteHost = "192.168.7.65" '要连接到计算机的IP地址
     .RemotePort = 1969 '要连接到的端口号
     .LocalPort = 10001 '该Winsock控制将使用的本地端口号，便于其它方与之通讯
     .Bind 10001 '将该Winsock控制绑定到该本地端口
     End With
End SubCommand1_Click() 里有点问题 执行到最后一句会报个错
SOCKET is not connected
此时进入DEBUG 单步可以执行 ,待单步走完一边后
全速执行(不听的发都没问题) ,是什么问题??还有个问题:
Command1_Click()里发的命令是 40 02 02 BC 
设备应该可以返回 F4 或F0打头的一个字节数组
但现在看到的是 返回是乱码问 如果 我发的   40 02 02 BC   必须是4字节的内容, 该怎么发?
接受返回的字节 该如何接受??