哪里错了？（急！在线等）

[Mars.CN]

Private Sub Command1_Click()
Winsock2.Connect
End Sub

Private Sub Command2_Click()
MsgBox Winsock2.State
Winsock2.SendData "hello"
End Sub

Private Sub Form_Load()
Winsock1.Listen
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim str As String
Winsock1.GetData str
Text2.Text = str
End Sub

Private Sub Winsock2_Connect()
MsgBox "c"
End Sub