[RESOLVED] server/client whats wrong with this code?

whenever i try this i get an error:
"Runtime error 40006
Wrong protocol or connection state for the requested transaction or request"

could someone tell me whats wrong with this code?

Code:

---

Dim MessageIn As String
Dim MessageOut As String

Private Sub Command1_Click()
MessageOut = txtOut
Winsock1.SendData MessageOut
End Sub

Private Sub Form_load()
Winsock1.RemoteHost = "localhost"
Winsock1.RemotePort = "65256"
Winsock1.Connect
Winsock2.LocalPort = "65256"
Winsock2.Listen
End Sub


Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Winsock2.GetData MessageIn
txtIn = txtIn & MessageIn & vbNewLine
End Sub

---

when and where does the error occur?

it could be because you are trying to Connect before you tell you server to Listen

i tried to reverse it, and even make it connect from a button click.

i get the error when i click command1 (send data)

but i got it working now...

Can you post the full code for the above program