Socket por UDP...

[lic_dahool]

la comunicación con UDP es un tanto diferente que TCP, examina el siguiente código:

'aplicacion que recibe la información

private sub EsperarInformacion()

WinSock1.Bind puerto_a_usar

end sub

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

Winsock1.GetData data1

end sub

'aplición que envía el mensaje

private sub EnviarInfo()

WinSock1.RemotePort = puerto_a_usar
WinSock1.RemoteHost = ip_destino
WinSock1.SendData cadena_de_texto

end sub

'-----------------------

fijate bien que en Bind no usé el signo =

Ojo, que la aplicacion cliente no puede estar en el mismo lugar que el servidor porque da error (se puede evitar pero no viene al caso)
No podés establecer en forma conjunta la propiedad Bind y LocalPort con el mismo número.

saludos.