[RESOLVED] Winsock Client/Server

[Blackbelt12]

I have a client side and server side application. I'm trying to get it so when I click a button the client side, it opens up a messagebox on the server side. I was thinking the code was something like this:

Client Side:

Private Sub cmdConnect_Click()
Winsock1.RemoteHost = "127.0.0.1"

Winsock1.RemotePort = 6667

Winsock1.Listen

End Sub

Private Sub cmdSendMsg_Click()
Dim Data

Data = "Open MessageBox"

Winsock1.SendData (Data)

End Sub

Server Side:

Private Sub Form_Load()
Winsock1.RemoteHost = "127.0.0.1"

Winsock1.RemotePort = 6667

Winsock1.Listen
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Data

Winsock1.GetData (Data)

If InStr(Data, "Open MessageBox") Then
MsgBox("Opened MessageBox!")
End If

End Sub

But this doesn't work. Any ideas?