Public Module udp
    Public GroupIP As IPAddress
    Public GroupEP As IPEndPoint
    Public ListenUdp As UdpClient
    Public stoprequested As Boolean
    Public listenthread As New Thread(AddressOf BeginListen)
 
    Public Sub Main()
        listenthread.SetApartmentState(ApartmentState.STA)
        listenthread.Start()
        If Not frm_Eingabe.Created Then listenthread.Abort()
    End Sub
 
    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
            bteReceiveData = ListenUdp.Receive(GroupEP)
            strReceiveData = Encoding.Unicode.GetString(bteReceiveData)
            MsgBox(strReceiveData)
        End While
 
    End Sub
End Module