Winsock on Win CE

Hello

i'm trying to get a winsock app working so that I can send data back and forth.

What am i doing wrong?

Private Sub Cmd_Click()
WinSock1.LocalPort = 1001
WinSock1.RemotePort = 1002
WinSock1.SendData "Hello world"
End Sub

Private Sub WinSock1_DataArrival(ByVal bytesTotal As Long)
MsgBox "msg rec'd"
End Sub

Thanks