Visual Basic - plataforma cliente servidor con winsock

Hola, estoy desarrollando una aplicación cn vb6 en la que varios clientes envian datos a una misma aplicación con Winsock. Todo funciona bien salvo que dos clientes no pueden conectarse a la vez al servidor.
Aunque la pregunta sea una tonteria :-)
¿Son posibles accesos simultaneos desde varios clientes al servidor?
Gracias.

Primero tienes que agregar un winsock (SOLO UNO)

En las propiedades que tiene el control Busca la que dice Index y le pones 1

Eso es para crear un array de ese control...

Ahora en el vento WINSOCK_CONNECTION_REQUEST
agrega el siguiente código

Dim curentConn
currentConn = Winsock.UBound + 1 ' Se va al último elemento
del array

Load Winsock(currentConn) ' Carga un nuevo Winsock
Winsock(currentConn).Accept (requestID) ' Acepta la conección

NO se te olvide que tambien tienes que cerrar las conecciones y descargar el control que se dejo de usar, para evitar fallas con un exeso de controles

Usa algo asi

WINSOCK_CLOSE
winsock(index).close
unload winsock(index)