Visual Basic - WINSOCK

Hice un programa cliente servidor pero no me conecta...
en el server empieso con
WINSOCK.Close
WINSOCK.Bind 1111 ' Puerto
WINSOCK.Listen

también acepta las conexiones de los clientes, y probandolo en una sola PC resulta, pero en 2 o más no conectas, sale el error de tiempo agorado.... ¿Faltará algo? ¿Tengo que hacer la IP del server Pública?

Mirá, la verdad no entendí mucho lo que quisiste decir, pero si lo que queres hacer es que tu pc reciba varias conexiones, entonces tenes que poner, cuando sea el evento connection request

(declaraciones)
Public Indice as integer

private sub winsock1_connectionrequest(requestid as long)
Indice = Indice + 1
load winsock1(Indice)
winsock(indice).accept
end sub

de otra forma hacé esto, si el error es tipo esos que te detienen el programa, buscalo en la ayuda a ver que te dice, sino... la verdad no se