Winsock cliente/servidor

Simplemente tienes que crear un proyecto con winsock para el servidor y haciendo un bind a un puerto determinado (el 5005 p.e), luego lo pones a escuchar (listen) y en los eventos de recepción de datos (data arrival ) le pones get data para recibir los datos y manejarlos.
Los clientes simplemente hacen "connect" a la ip y puerto del servidor y una vez conseguida la conexión (lo sabrás por el evento connected) puedes hacer un send (siempre es un tipo string en VB).
De esta forma ya tienes un servidor que escucha y clientes que le envían datos.

Te estoy muy agradecido por tu ayuda y te indico que ya lo realice de esta manera pero solo puedo conectar un cliente, no puedo conectar a otros clientes al mismo tiempo, favor me puedes aclarar más detalladamente.
att.
luiseduardo

Usando un array de winsocks
Dim intConnection As Integer
Private Sub Winsock_ConnectionRequest(Index As Integer, ByVal requestID As Long)
intConnection = intConnection + 1
' Carga un nuevo winsock para mantener las conexiones
Load Winsock(intConnection)
'Permite la conexión y la mantiene
Winsock(intConnection).Accept requestID
End Sub
Recuerda poner antes a escuchar el primer winsock:
Winsock(0).LocalPort = 5006
Winsock(0). Listen
Y cerrar todas las conexiones...

Disculpa por no haber puntuado y finalizado la pregunta pero se presento un problema al cual le he dedicado todo el tiempo; ahora si tu respuesta me fue de gran utilidad, pero los conecto y envío mensajes, con el inconveniente que se queda activo el ultimo que enlace; como puedo presentar mensajes de los clientes al servidor y del servidor el mismo dato a los clientes al mismo tiempo, si me puedes ayudar te agradeceré mucho.