troyano hecho con visual basic

Hola, estoy "intentando hacer un troyano en visual" pero no logra hacerlo funcionar..

uso el componente Winsock de Visual basic para hacer Cliente/servidor

En el formulario Cliente tengo puesto esto:

Código:

---

Private Sub Form_Load()

Ws.Close
Ws.LocalPort = 1000
Ws.Listen
Text1.Text = Ws.RemoteHostIP


End Sub

Private Sub ws_Close()
Form1.Caption = "Winsock Cerro"
End Sub


Private Sub Ws_ConnectionRequest(ByVal requestID As Long)
Ws.Close
Ws.Accept requestID
Form1.Caption = "Conectados :D"

End Sub

Private Sub Ws_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Form1.Caption = "hay un error"
End Sub

---

En el formulario Servidor tengo puesto esto:

Código:

---

Private Sub Form_Load()
Ws.Close
Ws.Connect "mi-direccion-no-ip.org", 1000
Form1.Caption = "Intentando conexión"
End Sub

Private Sub Ws_Close()
Form1.Caption = "Conexión Cerrada"
End Sub

Private Sub Ws_Connect()

Form1.Caption = "Conectados"

End Sub

Private Sub Ws_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Form1.Caption = "Error winsock"
End Sub

---

Aclaro: En mi router abri el puerto 1000.
y en el archivo Host de mi windows XP le puse lo siguiente:

190.2.150.132 mi-direccion-no-ip.org


Ya nose que mas hacer.. ! espero que alguien me pueda ayudar.