Visual Basic - Ejemplo de updProtocol k no funciona..

He estado mirando la Ayuda para Visual Basic 6.0, k ofrece MSDN Library. Y concretamente el uso del control Winsock con el udpProtocol.

El caso es k t pone un sencillo ejemplo d funcionamiento, k he ido ha comprobar y al ejecutarlo da el Error 10014 'Argumento no valido'... El codigo es el siguiente:

------------ frmPeerA -------------

Private Sub Form_Load()
' El nombre del control es udpPeerA.
With udpPeerA
' IMPORTANTE: asegúrese de cambiar el valor de
' RemoteHost al nombre de su equipo.
.RemoteHost = "IgualB"
.RemotePort = 1001 ' Puerto al que conectar.
.Bind 1002 ' Enlaza al puerto local.
End With
frmPeerB.Show ' Muestra el segundo formulario.
End Sub

Private Sub txtSend_Change()
' Envía texto en cuanto se escribe.
udpPeerA.SendData txtSend.Text ' *ESTA LINEA DA EL ERROR*
End Sub

Private Sub udpPeerA_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
udpPeerA.GetData strData
txtOutput.Text = strData
End Sub

------------ frmPeerB -------------

Private Sub Form_Load()
' El nombre del control es udpPeerB.
With udpPeerB
' IMPORTANTE: asegúrese de cambiar el valor de
' RemoteHost al nombre de su equipo.
.RemoteHost = "IgualA"
.RemotePort = 1002 ' Puerto al que conectar.
.Bind 1001 ' Enlaza al puerto local.
End With
End Sub

Private Sub txtSend_Change()
' Envía texto en cuanto se escribe.
udpPeerB.SendData txtSend.Text ' *ESTA LINEA DA EL ERROR*
End Sub

Private Sub udpPeerB_DataArrival _
(ByVal bytesTotal As Long) %0

Dim strData As String
udpPeerB.GetData strData
txtOutput.Text = strData
End Sub

>>Se supone q debe d actuar como un chat, enviando y recibiendo texto.

Al depurar m señala k el error se produce en:
udpPeerA.SendData txtSend.Text ' Al enviar el texto desde frmPeerA
udpPeerB.SendData txtSend.Text ' Al enviar el texto desde frmPeerB

Alguien sabe xk aparece ste error???

-.Gracias de antemano.-