Es al revés, el cliente se conecta al servidor. Esto sería lo que tendría que tener el programa que enviarías.
winsock1.remotehost = "tu_ip"
winsock1.remoteport = "puerto_de_tu_ordenador"
winsock1.connect
Esto lo que tendría que tener el tuyo.
winsock1.localport = "puerto_de_tu_ordenador_"
private sub winsock1_connection request
winsock1.accept requestid
end sub
Ese código es lo que has pedido. Solo te servirá para crear la conexión, no va a permitir descargar archivos ni nada por el estilo. Simplemente se conecta.
Saludos