Cita:
Iniciado por loquillo7 en tu programilla en el modeluo
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock.Accept IdSolicitud
MsgBox "Se a conectado el Cliente", vbInformation, "Mensaje"
Winsock1.SendData "Conectado"
End Sub
¿que parametro es idSolicitud?
La ID de la solicitud
...
Debes cambiar IdSolicitud por requestID (el parámetro que pasa WinSock)