Visual Basic - Quien sabe algo de Socket

Tengo un problema con el componente winsock.

mi pregunta es la siguiente ¿ este componente puede comunicar un servidor socket con 4 cliente sockets ?

Esperando respuesta?

por supuesto."no te olvides de poner la propiedad index del objeto a 0"
Private Sub WskComunicador_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Dim WskChild As Winsock
If Index = 0 Then
Dim Puntero As Integer
Puntero = 1
For Each WskChild In WskComunicador
If WskChild.Index > 0 Then
If Puntero <> WskChild.Index Then Exit For
Puntero = Puntero + 1
End If
Next
Load WskComunicador(Puntero)
WskComunicador(Puntero).LocalPort = 0
WskComunicador(Puntero).Accept requestID
End If
End Sub