winsock 问题~真的搞不明白了

Private Sub Web_ConnectionRequest(Index As Integer, ByVal requestID As Long)
iCurrentClient = iCurrentClient + 1
Load Web(iCurrentClient)
Web(iCurrentClient).Accept requestID
Web(iCurrentClient).SendData "aaaaaaaaaaaaaaaaaa" 如果在这发送数据那么客户端能收到
End SubPrivate Sub Web_DataArrival(Index As Integer, ByVal bytesTotal As Long)
    Web(Index).SendData "qqqqqqqqq"但是在这发送客户端就接不到如果程序改为
Private Sub Web_ConnectionRequest(ByVal requestID As Long)
If Web.State <> sckClosed Then Web.Close
Web.Accept requestID
Web.SendData "aaaaaaaaaaaaaaaaaa"
End Sub
Private Sub Web_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Web.SendData "qqqqqqqqq"则都客户端都能收到~百思不得其解~哪位高人能告知一二~~