Visual Basic

<br />
    Dim rxSocket As Socket = Nothing<br />
    Dim RecvBytes(1000) As Byte<br />
    Dim RemoteEP As New IPEndPoint(0, 0)<br />
    Dim myCallback As New AsyncCallback(AddressOf OnReceive)<br />
<br />
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        rxSocket = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)<br />
        RemoteEP = New IPEndPoint(IPAddress.Any, 12000)<br />
        rxSocket.Bind(RemoteEP)<br />
        rxSocket.BeginReceiveFrom(RecvBytes, 0, RecvBytes.Length, _<br />
        SocketFlags.None, RemoteEP, myCallback, Nothing)<br />
    End Sub<br />
<br />
<br />
    Public Sub OnReceive(ByVal ar As IAsyncResult)<br />
        Dim iBytes As Integer<br />
        Try<br />
<br />
        Catch e As SocketException<br />
            MsgBox(e.Message)<br />
            Exit Sub<br />
        End Try<br />
        ListView1.Items.Add(System.Text.Encoding.UTF8.GetString(RecvBytes))<br />
        iBytes = rxSocket.EndReceiveFrom(ar, RemoteEP)<br />
        rxSocket.BeginReceiveFrom(RecvBytes, 0, RecvBytes.Length, _<br />
        SocketFlags.None, RemoteEP, myCallback, Nothing)<br />
    End Sub<br />