vb winsock发送ip错误40006

代码如下
服务端：Private Sub form_Load()
With Me
.Winsock1.LocalPort = 2000 '本地端口（呵呵！我的生日！）
.Winsock1.Listen '开始监听
End With
End Sub

Private Sub winsock_ConnectionRequest(ByVal requestID As Long)
With Me
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept (requestID)
End With
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '新数据到达
Dim DataStr As String '定义字符串变量
Winsock1.GetData DataStr '获得消息数据
If Text1.Text = "" Then '如果消息记录框为空
Text1.Text = "从客户端:" & DataStr '将消息数据直接写入到消息记录框中
Else: Text1.Text = Text1.Text & vbCrLf & "从客户端：" & DataStr '否则，将消息追加到文本框后面
End If
End Sub
客户端：
Private Sub Form_Load()
Form1.Visible = False
Winsock1.RemoteHost = "192.168.1.55" '指定服务器主机IP
Winsock1.RemotePort = 2000 '远程计算机的端口号，与服务器中的设置一致
Winsock1.Connect '连接到服务器
Text1.Text = Winsock1.LocalIP
Winsock1.SendData Text1.Text
End Sub

客户端未进行连接服务端请求或客户端进行了连接服务端但服务端未运行，试图在客户端发送数据而出现的错误。
或者是客户端未进行连接服务端，而服务端运行时试图在服务端发送数据而出现的错误。

在.net里把winsock集合成了一个类,我们在使用的时候可以引用 system .net .sockets .tcpclient 类