Visual Basic - Ayuda con administrador remoto

Wenas, estaba haciendo mi herramienta de administracion remota con conexion inversa en visual basic 6, con la api del winsock, para poder usarla en cualqier pc, pero al ponerlo a conectar, el estado del socket (lo pone en la ventana del vb) es "sckConnecting" y al poco tiempo, el estado es de "sckError", y evidentemente, no se le conecta con el server
No se porqe ocurre esto, pero bueno pues por si me podeis ayudar, aqi os dejo los codigos:

El codigo del cliente:
_______________________________________
Dim WithEvents ws As CSocketMaster

Private Sub Form_Load()
On Error Resume Next
Set ws = New CSocketMaster
ws.CloseSck
ws.Protocol = sckTCPProtocol
ws.RemotePort = "5121"
ws.RemoteHost = "127.0.0.1"
ws.Connect
End Sub

Private Sub Timer1_Timer()
If ws.State = 7 Then
Label2.Caption = "Conectado"
Else
Label2.Caption = "Desconectado"
End If
End Sub

Private Sub Ws_ConectionRequest(ByVal requestID As Long)
ws.CloseSck
ws.Accept requestID
Label4.Caption = ws.RemoteHostIP
End Sub
_______________________________________


El codigo del server:
_______________________________________
Dim WithEvents ws As CSocketMaster
Dim filesize As Long, datos2 As String, filedata As String, send As Boolean, path As String

Private Sub Form_Load()
On Error Resume Next
ws.CloseSck
ws.Protocol = sckTCPProtocol
ws.LocalPort = "5121"
ws.Listen
End Sub

Private Sub Timer1_Timer()
If ws.State = 7 Then
Label1.Caption = "Conectado"
Else
Label1.Caption = "Desconectado"
End If
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.CloseSck
ws.Accept requestID
End Sub
________________________________________

Saludos, y espero qe me podais ayudar.
PD: Esta claro qe al troyano le falta mucho code, pero no lo he puesto porqe no es necesario, para no liar.