winsock控件使用的问题.

Question

网络通讯使用,服务器端采用load winsock(i)装载多个控件的方法
可使用下列方法发送消息的时候出现问题:
    For I = ServiceSocket.lBound To ServiceSocket.UBound
         ServiceSocket(I).SendData "KKKKKKKKKKKKK"
    Next
    采用上面的方法向每个客户端发送数据时出现部分无法发送数据.
    
    如果如下就正常:
    For I = ServiceSocket.lBound To ServiceSocket.UBound
         msgbox "OK"
         ServiceSocket(I).SendData "KKKKKKKKKKKKK"
    Next
    
    请问这是啥子原因呢?

Answer 1

'这样试下。
    For I = ServiceSocket.lBound To ServiceSocket.UBound
         doevents
         ServiceSocket(I).SendData "KKKKKKKKKKKKK"
    Next

Answer 2

For I = ServiceSocket.lBound To ServiceSocket.UBound
       
         ServiceSocket(I).SendData "KKKKKKKKKKKKK"
  doevents
    Next