o estás haciendo una conexion inversa, o el cliente es en realidad el server, y el server el cliente...
Tienes que decirle al socket por dónde escuchar:
Private Sub Form_Load()
WS.Close
WS.Listen
End Sub
debes ponerle el puerto despues de listen
Private Sub Form_Load()
WS.Close
WS.Listen puerto
End Sub
Cuando aceptes la conexión tienes que decirle el ID de la conexion:
Private Sub WS_ConnectionRequest(ByVal requestID As Long)
WS.Close
WS.Accept requestID
End Sub
Cuando conectes, tienes que decirle en qué puerto conectar:
Private Sub Command1_Click()
WS.Close
WS.Connect "127.0.0.1",puerto
Command1.Enabled = False
End Sub
En el command2_click no es necesario declarar la variable:
Private Sub Command2_Click()
WS.SendData Trim(Text2.Text)
End Sub
Mira en
http://lympex.securityhead.com/index2.php?menu=articulos en la parte de programacion hay un pdf sobre programacion de sockets en VB6