Hola buenas, estoy haciendo un programa muy simple, el problema es que, cuando me conecto se queda conectandose y no se llega a conectar. Una cosa, el programa no lo compilo, lo abro desde el VB. Este es el código:

Private Sub Command1_Click()
Winsock1.RemoteHost = 127.0.0.1
Winsock1.RemotePort = 9999
Winsock1.Connect
End Sub

Y en el server:

Private Sub Form_Load()
Winsock1.LocalPort = 9999
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(requestid As Long)
Winsock1.Accept requestid
MsgBox "Cliente Conectado"
End Sub

Gracias.

Tienes que cerrar el winsock antes de aceptar alguna conexion!