Some of that the server end of my chat room are getting combined when sent out. I read off another thread to Winsock1_SendComplete And A Do..Loop to "slow" the server down. The problem my server end is an array and i can't figure out how to code the Winsock1_SendComplete to work properly. Here's The Code.


Private Sub SendAll(Data As String)
On Error Resume Next
For All = Server.LBound To Server.UBound
Complete = False
Server(All).SendData Data
Do Until Complete = True
DoEvents
Loop
Next All
End Sub


Private Sub Server_SendComplete()
Complete = True
End Sub

The Send Complete I pasted of course doesnt work because Server is an array. How should I code this??