Yes... it's a bug in the winsock control that you are experiencing... Try the following code..

'doesn't work as buffer bug takes effect
For X = 1 to 10
Winsock(x).SendData MessageStr
Next X

'works perfectly as buffer is dumped each loop
For X = 1 to 10
Winsock(x).SendData MessageStr
DoEvents
Next X