Problema con winsock

[magarcan]

Estoy empezando a trastear con visual basic. He intentado hacer una aplicación sencillita cliente-servidor, pero cuando el cliente envía un paquete al server me sale éste error y se cierra:
"Run-time error '40006' wrong protocol or connection state for the requested transaction or request"

¿Alguien sabe que puede ser? He buscado con Google y lo más que decían en algunos foros en inglé es que debe ser problema del firewall, pero yo no utilizo ninguno.

Ospongo el código del cliente:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
TCP.SendData Text1.Text
End Sub
Private Sub Form_Load()
TCP.Close
TCP.LocalPort = 666
TCP.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
TCP.Close
TCP.Accept requestID
Me.Caption = "Conectado con.::" & TCP.RemoteHostIP & "::."
End Sub


Gracias por adelantado

[magarcan]

Solucionado, este error se da al intentar enviar un paquete, pero no hay conexión.