菜鸟问关于VB的WINSOCK的问题~

For i = 0 To sockNum
   If Winsock1(i).State = 7 Then
      Winsock1(i).SendData "AIR" & Chr(10) & meTo & Chr(10) & giveTo & Chr(10) & matter
   End If
Next i这样发送给每一个客户端，但只有Winsock(1)可以收到。单步调试的时候每个客户端都可以收到。可能是因为每次发送间隔时间太短网络慢的原因~请问怎么解决？相关资料也可以，高手帮忙。