vb tcp/ip通信程序 怎么循环控制才让服务器端发送一个字符，客户端接受一个字符呀，小弟急用，谢谢！

Question

怎么循环控制才让服务器端发送一个字符，客户端接受一个字符呀，小弟急用，谢谢！服务器端
Private Sub Form_Load()
     Winsockserver.LocalPort = 1001
     Winsockserver.Listen
End SubPrivate Sub Winsockserver_Close()
     Winsockserver.Close
     End
End Sub
  
Private Sub Winsockserver_ConnectionRequest(ByVal requestID As Long)   
     If Winsockserver.State <> sckClosed Then Winsockserver.Close
     Winsockserver.Accept requestID
End SubPrivate Sub Winsockserver_DataArrival(ByVal bytesTotal As Long)
     Dim tmpstr As String
     Winsockserver.GetData tmpstr
     textget.Text = tmpstr
End SubPrivate Sub Command2_Click()
    For m = 1 To 5
     Winsockserver.SendData Str(m)
    Next m
End Sub客户端
Public tmpstr As StringPrivate Sub Command2_Click()
     Winsockclient.Connect
End Sub
 
Private Sub Form_Load()
     Winsockclient.RemotePort = 1001
     Winsockclient.RemoteHost = "zwd"
End SubPrivate Sub Text1_Change()
     Winsockclient.RemoteHost = Text1.Text
End Sub
  
Private Sub textsend_Change()
     Winsockclient.SendData Textsend.Text
End SubPrivate Sub Winsockclient_Close()
     Winsockclient.Close
     End
End SubPrivate Sub winsockclient_Connect()
     Textsend.Visible = True
     textget.Visible = True
End SubPrivate Sub winsockclient_DataArrival(ByVal bytesTotal As Long)
    Winsockclient.GetData tmpstr
     textget.Text =textget.Text & "receive" & tmpstr & “; ”     
 End Sub  客户端和服务器端连接后，单击 Command2 后，服务器端循环发送 1、2、3、4、5字符到客户端，我希望客户端每次接受一个字符 得到 receive1; receive2; receive3; receive4; receive5;结果。但实际上得到了 receive12345;  存在同步问题。怎么循环控制才让服务器端发送一个字符，客户端接受一个字符呀，小弟急用，谢谢！

Answer 1

For m = 1 To 5
     Winsockserver.SendData Str(m)
doevents
    Next m

Answer 2

谢谢你，谢谢你，交个朋友吧！qq 27108692  你的 qq是多少呀？？