Private Sub startReceiving()
        Dim myUdpClient = New UdpClient(IP_XCP, 9050)
        Dim dataSend(11) As Byte
        Dim state As New StateObject
        str2byte("08000000f404000000000ACA", dataSend)
        myUdpClient.Send(dataSend, 12)
        myUdpClient.BeginReceive(AddressOf receiveData, Nothing)
    End Sub
 
    Private Sub receiveData(ByVal ia As IAsyncResult)
        Dim ipep As New IPEndPoint(IPAddress.Parse(IP_XCP), 9050)
        Dim myUdpClient = New UdpClient(IP_XCP, 9050)
 
        Dim data() As Byte = myUdpClient.EndReceive(ia, ipep)
 
        ListBox2.Items.Insert(0, byte2str(data))
        myUdpClient.BeginReceive(AddressOf receiveData, Nothing)
    End Sub