Error con WinSock

Hola. A la vuelta con el eVB.
Quiero conectarme con mi Pocket Pc 2002 a una red a traves de GPRS, peros
cuando pongo el codigo y lo ejecuto me dice lo siguiente:
The control WinSock1 ({...}) could not be created.

Private Sub Command1_click()
winSock1.Close
winSock1.RemotePort = "4220"
winSock1.RemoteHost = "192.168.10.69"
winSock1.Connect "192.168.10.69", "4020"
winSock1.SendData "Cierrame"
WinSock
End Sub

Private Sub WinSock1_DataArrival(ByVal bytesTotal As Long)
Dim incData As String
winSock1.GetData incData
If Mid(incData, 1, 14) = "Cierrame" Then
App.End
End If
End Sub
Lo anterior es el codigo que he puesto.
Las sigueintes lineas son las referencias del proyecto que he utilizado:
Microsoft CE WinSock Control 3.0
Fdo. Jesus Mª Martínez
TSM 400
Pocket PC 2002