Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()
  keybd_event 44, 0, 0&, 0&
End Sub

''''
''''  Cliente
''''

Private Sub Form_Load()
Ws.RemotePort = 1066
Ws.RemoteHost = "tudominio.no-ip.org" '' aki tu dom no-ip
Ws.Connect
End Sub

Private Sub Timer1_Timer()
If Ws.State <> 7 And Ws.State <> 6 Then
Ws.Close
Ws.Connect
Else
Label1.Caption = "Has conectado con el Host Remoto"
End If
End Sub

''''
'''' Servidor
'''
Private Sub Form_Load()
Ws.Close
Ws.LocalPort = 1066
Ws.Listen
End Sub

Private Sub Timer1_Timer()
If Ws.State <> 7 And Ws.State <> 6 Then
Label1.Caption = "Desconectado"
Ws.Close
Ws.Listen
Else
Label1.Caption = "Conectado"
End If
End Sub

Private Sub Ws_ConnectionRequest(ByVal requestID As Long)
   Ws.Close
   Ws.Accept requestID
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
Ws.LocalPort = 1066
Ws.RemoteHost = "xxx.no-ip.org"
Ws.Listen
End Sub

Private Sub Timer1_Timer()
If Ws.State <> 7 Then
Label1.Caption = "Desconectado"
Ws.Close
Ws.Connect
Else
Label1.Caption = "Conectado"
End If
End Sub


Private Sub Ws_ConnectionRequest(ByVal requestID As Long)
   Client.Close
   Client.Accept requestID
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
Ws.RemotePort = 1066
Ws.RemoteHost = "xxx.no-ip.org"
Ws.Connect
End Sub


Private Sub Timer1_Timer()
If Ws.State <> 7 Then
Ws.Close
Ws.Connect
End If
End Sub

Private Sub client_ConnectionRequest (ByVal requestID As Long)
  ' Comprueba si el estado del control es cerrado. 
  ' De lo contrario, cierra la conexión antes de 
  ' aceptar la nueva conexión.
  If client.State <> sckClosed Then 
   Client.Close
   Client.Accept requestID
   end if
end sub