Private Sub Form_Load()
Winsock1.LocalPort = 1001
Winsock1.Listen
End Sub
Private Sub Winsock1_Close() 'si se pierde la coneccion
Winsock1.Close 'cerramos
Winsock1.Listen ' escuchamos nuevos pedidos de coneccion
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then ' si no se cerro la
Winsock1.Close ' coneccion anterior
Winsock1.Listen ' se cierra, y ecucha
End If
Winsock1.Accept (requestID) 'se acepta la peticion de coneccion
End Sub