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

[Justa Lol]

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?

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

[Philly0494]

when and where does the error occur?

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

[Justa Lol]

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...

[yuvarajv]

Can you post the full code for the above program