bbc亚马逊争夺战妇女:vb的代码出现错误，请仁者一帮。

Private Sub sockClient_Error(ByVal Number As Integer, Denoscription As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "连接出错！关闭连接！", vbInformation, "警告"
sockClient.Close
cmdConnect.Enabled = True
End Sub
Private Sub sockSer_ConnectionRequest(ByVal requestID As Long)
If sockSer.State <> sckClosed Then
sockSer.Accept requestID
End Sub

Private Sub sockSer_DataArrival(ByVal bytesTotal As Long)
Dim strGet As String
sockSer.GetData strGet
If strGet = "^close^" Then
sockSer.Close
sockSer.Listen
End If
List1.AddItem strGet
List1.TopIndex = List1.NewIndex
End Sub

Private Sub cmdClear_Click()
List1.Clear
End Sub

Private Sub cmdClose_Click()
sockClient.SendData "^Close^" '发送关闭代码
End Sub

Private Sub cmdConnect_Click()
sockClient.RemoteHost = Text1.Text '为客户机设置远程主机的主机名或IP
sockClient.Connect '连接远程主机
cmdSend.Enabled = True
cmdClose.Enabled = True
cmdConnect.Enabled = False

End Sub

Private Sub cmdExit_Click()
If sockClient.State <> sckClosed Then sockClient.Close
If sockSer.State <> sckClosed Then sockSer.Close
End
End Sub

Private Sub cmdSend_Click()
Dim strSend As String
strSend = sockClient.LocalHostName ":" Text2.Text
sockClient.SendData strSend
List1.AddItem strSend
List1.TopIndex = List1.NewIndex
Text2.Text = ""
End Sub

Private Sub Form_Load()
cmdSend.Enabled = False
cmdClose.Enabled = False
sockSer.Listen '打开服务器进行侦听
End Sub

Private Sub sockClient_connect()
MsgBox "连接成功！", vbInformation, "提示"
cmdConnect.Enabled = False
End Sub
可以copy-paste一下看看啊