Visual Basic - Winsock Control Visual Basic, Cliente/servidor.

Hola, a ver si alguien me puede ayudar, he seguido un manual al pie de la letra, pero no he conseguido que funcione, ya que está exactamente igual, pero me dice al intentar conectar, que se requiere un objeto, y no se qué puede ser. Os pongo el código tanto del cliente, como del servidor.

//////////////////////////////////////////////////////////
[b]CÓDIGO CLIENTE[/b]

[quote]
Private Sub Command1_Click()

Winsock1.RemoteHost = Text3.Text
Winsock1.Connect

End Sub

Private Sub Command2_Click()
Dim enviar As String

enviar = Text2.Text
Winsock1.SendData enviar

End Sub


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String

Winsock1.GetData datos
Text1.Text = Text1.Text + datos

End Sub

[/quote]

[b]CÓDIGO SERVIDOR[/b]

[quote]

Private Sub Command1_Click()
Winsock1.Listen
End Sub

Private Sub Command2_Click()
Dim enviar As String
enviar = Text2.Text
Winsock1.SendData enviar

End Sub

Private Sub Form_Load()
Label1.Caption = Winsock1.LocalIP
End Sub

Private Sub winsock1_Dataarrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Text1.Text = Text1.Text + datos

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

Winsock1.Close
wincsock1.Accept requestID

End Sub

[/quote]

[URL=http://img301.imageshack.us/my.php?image=clienteservidor3nl.jpg][IMG]http://img301.imageshack.us/img301/1746/clienteservidor3nl.th.jpg[/IMG][/URL]

A ver si alguien puede saber qué es, gracias

ya agregaste el control activex winsock a tu proyecto ?

Claro, si no lo agrego cómo lo voy a hacer.... xDD

El error puede estar acá:

Winsock1.Close
wincsock1.Accept requestID ' esta linea

Saludos

Si al final era esa línea, ya la vi yo revisando código ;)

De todas formas, lo llevo a otro pc y me dice que me faltan archivos ocx creo.... a lo mejor alguna librería q falte....