帮忙看一下winsock通讯问题

Question

各位大哥,快帮帮忙吧,先谢谢了!
想做一个小程序,学习winsock控件.实现功能:客户端发送一个字符串到服务器端,服务器端收到后在对话框中显示出来.程序如下:
好像客户端可以发出去,但服务器端显示不出收到的信息,大家看看这是怎么回事?
------------------------------
服务器端
Private Sub Form_Load()
  Winsock1.LocalPort = 5000
  Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
  MsgBox "连接成功"
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim sdata As String
  Winsock1.GetData sdata, vbString
  MsgBox sdata
End Sub客户端:
Private Sub Command1_Click()
   Winsock1.SendData Text2.Text
End Sub
Private Sub Form_Load()
  On Error GoTo errhandle:
  Winsock1.RemoteHost = "192.168.1.4"
  Winsock1.RemotePort = 5000
  Winsock1.Connect
  Exit Sub
  errhandle:
    MsgBox Err.Description
End Sub

Answer 1

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
  MsgBox "连接成功"
End Sub
必需建立连接。
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
  Winsock1.accept requestID'*********
  MsgBox "连接成功"
End Sub