sorry i made a mistake...now my code looks like this:

Option Explicit
Dim Index As Integer
Dim Buffer As String

Private Sub Form_Load()
Index = 0
Sock.Listen
End Sub


Private Sub Sock_ConnectionRequest(ByVal requestID As Long)

CommSocket(CommSocket.UBound).Accept requestID

Load sock2(sock2.UBound + 1)
Sock(sock2.UBound).LocalPort = sock2(sock2.UBound - 1).LocalPort + 1

End Sub

Private Sub Sock_DataArrival(ByVal bytesTotal As Long)
Sock.GetData (Buffer)

If Buffer = Right("/Name:") Then
lstNames.AddItem Right(Buffer, 7)
End If
End Sub


so what winsock is doing what???