问个VB的WINSOCK控件问题

以下代码我是用来做在自己电脑上的客户端和服务器（自己电脑发送，自己电脑接收），但运行时错误，望大虾改进。
服务器：两个TXTBOX控件
Private Sub Form_Load()
tcpserver.LocalPort = 1001
tcpserver.Listen
End Sub

Private Sub tcpserver_ConnectionRequest(ByVal requestID As Long)
If tcpserver.State <> sckclose Then
tcpserver.Close
End If
tcpserver.Accept requestID
End Sub

Private Sub tcpserver_DataArrival(ByVal bytesTotal As Long)
Dim strdata As String
tcpserver.GetData strdata
txtoutput.Text = strdata
End Sub

Private Sub txtsend_Change()
tcpserver.SendData txtsend.txet
End Sub
客户端：两个TXTBOX控件和一个CONNECT按钮
Private Sub cmdconnect_Click()
tcpclient.Connect
End Sub

Private Sub Form_Load()
tcpclient.RemoteHost = "remotecomputername"
tcpclient.RemotePort = 1001
End Sub

Private Sub tcpcclient_DataArrival(ByVal bytesTotal As Long)
Dim strdata As String
tcpclient.GetData st

VB中的winsock控件的问题!! vb winsock控件问题 vb控件一问 在VB中的控件winsock vb中添加winsock控件 vb winsock控件相关用法!! VB 的 winsock 控件UDP协议能不能实现多人连机？？？ 关于VB的 ftp上传下载是否要用Winsock控件 VB 中winsock控件的问题 急,在线等! 一个关于Winsock控件的问题，VB高手进