Private Sub Command1_Click()
  Dim i As Integer
 
  For i = 1 To Winsock.Count - 1
    Winsock(i).SendData "SendMeUserName"
    DoEvents
  Next  i
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de