Visual Basic - WINSOCK

Hola: me estoy iniciandoen el uso del control Winsock , tengo una aplicación muy tonta para ver como funciona, un programa servidor que lo ejecuto en una maquina de mi lan y el cliente que lo ejecuto en mi maquina al parecer la conexión se realiza pero al momento de mandar algun dato (todo por medio de textbox) me arroja el siguiente error: Run Time error 4006 : “wrong protocol or connection state for the request or request “

Les paso las lineas del cliente y el servidor para ver si me pueden ayudar.

PROGRAMA CLIENTE

Private Sub Command1_Click()
Winsock1.RemoteHost = Text3.Text
Winsock1.Connect
End Sub

Private Sub Command2_Click()
Dim enviar As String
enviar = Text2.Text
Winsock1.SendData enviar
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Text1.Text = Text1.Text + datos
End Sub

PROGRAMA SERVIDOR

Private Sub Command1_Click()
Winsock1.Listen
End Sub

Private Sub Command2_Click()
Dim enviar As String
enviar = Text2.Text
Winsock1.SendData enviar

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Text1.Text = Text1.Text + datos
End Sub

Gracias de Antemano….

Yo lo que te propongo es que instales un Visual Basic en tu máquina, pero en español ya que así no te dará el error "wrong protocol or connection state for the request or request “ sino otro que podamos entender los que no hablamos (ni queremos) el inglis.

hola

le asicnaste un puerto al cual el server va escuchar y el cliente se va a conectar?


tambien puedes usar la propiedad de winsock.state , te devuelve el estado de la
conexión

if winsock1.state = sckconnected then
winsock1.senddata= "Hola ;)"
else
msgbox "se ha perdido la conexión con el servidor "
winsock1.close
end if