Visual Basic - Como Hago con Mas de Un Cliente (Cliente/Servidor)

Tengo un demo que baje de internet que maneja el winsock y hace un chat entre ordenadore conectados en red (TCP/IP) pero como debo hacer o que es lo que se debe modificar en el cliente o en el servidor para que puedan estar mas de un cliente al mismo tiempo con el servidor? hay que cambiar algo? que?

Por favor una manito... gracias

Tienes que hacer un array de winsocks, creo que en la msdn viene un ejemplo bueno de ello.

Si, como dice el otro amigo, tienes que hacer un array en el servidor a cada vez que alguien se conecte (evento OnConnect, o algo asi), eso se hace incrementando la propiedad Index del control winsock

Emanuel, te explico más o menos lo que tienes que hacer, tienes que tener 2 winsocks (o al menos así es como yo lo hago), uno para tenerlo "a la escucha" de peticiones de los clientes y otro para mandarles información (que deberá ser un array de winsocks). Estableces un puerto local de escucha, (por ejemplo el wsEscucha.localport= 2400), y que los clientes, se conecten a ese puerto. Así en el evento ConnectionRequest de ese winsock (el de escucha), aceptas la petición creando un nuevo índice de winsock en el array de winsocks:

Private Sub wsEscucha_ConnectionRequest(ByVal requestID As Long)
Dim Index As Integer
Index = FindOpenWinsock '--> Aquí buscas un index de winsock que
' esté libre

'Acepta la petición usando el winsock creado
wsArray(Index).Accept requestID

End Sub

Espero esto te sirva de ayuda.

No se como crear un array de winsock. Si no es mucho molestar podria alguien decirme como lo hago... muchas ghracias por haberme contestado, de verdad....

Te pego una función con la que hago yo el array de winsocks:
Private Sub wsEscucha_ConnectionRequest(ByVal requestID As Long)
Dim Index As Integer
Index = CreaWinsock '-->Llama a la función que crea el array
' de winsocks
'Acepta la petición usando el winsock creado
wsArray(Index).Accept requestID
End Sub
Private Function CreaWinsock()
Dim X As Integer
'Define la vble como static para q mantenga su valor
Static LocalPorts As Integer

' Recorre el array de winsocks (desde el 0 hasta el máximo _
de la matriz).
For X = 0 To wsArray.UBound

' Si encuentra uno que el estado es 0, lo que significa q _
está cerrado, que use ese índice para el winsock
If wsArray(X).State = 0 Then
FindOpenWinsock = X

' Salimos de la función ya q tenemos asignado el winsock
Exit Function
End If
Next X

' Ninguno está cerrado así q crea uno
Load wsArray(wsArray.UBound + 1)

' Asegura que no hay conflictos en los puertos locales
LocalPorts = LocalPorts + 1
wsArray(wsArray.UBound).LocalPort = wsArray(wsArray.UBound).LocalPort + LocalPorts
' y devuelve su indice
CreaWinsock = wsArray.UBound
End Function

Espero esto te sirva, un saludo.