Visual Basic - Codigo sobre Winzock

Necesito un codigo de ejemplo sobre el envio de mensajes con winzock-UDP. Alguien me lo podrá proporcionar?

Tienes que hacer dos aplicaciones
Private Sub Form_Load()
´ El nombre del control es udpPeerB.
With udpPeerA
´ IMPORTANTE: asegúrese de cambiar el valor de
´ RemoteHost al nombre de su equipo.
.RemoteHost = "Tu Maquina"
.RemotePort = 1002 ´ Puerto al que conectar.
.Bind 1001 ´ Enlaza al puerto local.
End With
Unload
End Sub

Private Sub udpPeerA_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
udpPeerA.GetData strData
txtOutput.Text = strData
End Sub
Private Sub txtSend_Change()
´ Envía texto en cuanto se escribe.
udpPeerA.SendData txtSend.Text
End Sub