Private Sub BeginListen()
        Dim bteReceiveData() As Byte
        Dim strReceiveData As String
 
        GroupIP = IPAddress.Parse("192.168.1.90")
 
        GroupEP = New IPEndPoint(GroupIP, 5000)
        ListenUdp = New UdpClient(5000)
        ListenUdp.JoinMulticastGroup(GroupIP)
 
        While Not stoprequested
            halt_udp.WaitOne()
            bteReceiveData = ListenUdp.Receive(GroupEP)
            strReceiveData = Encoding.Unicode.GetString(bteReceiveData)
            MsgBox(strReceiveData)
        End While
 
    End Sub
 
    Public Sub stoplisten()
        stoprequested = True
        listenthread.Join()
        halt_udp.Set()
    End Sub