用winsock向服务器端发信息的时候遇到了一个问题

Question

客户端代码：
Private Sub Form_Load()
   tcpClient.RemoteHost = "192.168.64.100"
   tcpClient.RemotePort = 1001
   tcpClient.Connect
End Sub‘注：下面这段这么写能发送
Private Sub txtSendData_Change()
   tcpClient.SendData txtSend.Text
End Sub‘注：如写成这样就无法发送
Private Sub cmdConnect_Click()
   tcpClient.SendData txtSend.Text   
End SubPrivate Sub tcpClient_DataArrival _
(ByVal bytesTotal As Long)
   Dim strData As String
   tcpClient.GetData strData
   txtOutput.Text = strData
End Sub谁能告诉我原因？？？？？？？？？？？

Answer 1

好像是有这个问题，可以在中间加一个延时试试。
for i=1 to 1000
doevents
next