Public Class UDPMulticastListener
    
    Private Shared GroupAddress As IPAddress = _
        IPAddress.Parse("192.168.100.255")
    Private Shared GroupPort As Integer =  11000  
    
    Private Shared Sub StartListener()
        Dim done As Boolean = False
        
        Dim listener As New UdpClient()
        Dim groupEP As New IPEndPoint(GroupAddress, GroupPort)
        
        Try
            listener.JoinMulticastGroup(GroupAddress)
            listener.Connect(groupEP)
            
            While Not done
                Console.WriteLine("Waiting for broadcast")
                Dim bytes As Byte() = listener.Receive(groupEP)
                
            Console.WriteLine("Received broadcast from {0} :" + _
                ControlChars.Cr + " {1}" + ControlChars.Cr, _
                groupEP.ToString(), _
                Encoding.ASCII.GetString(bytes,  0 , bytes.Length))
            End While
            
            listener.Close()
        
        Catch e As Exception
            Console.WriteLine(e.ToString())
        End Try
    End Sub 'StartListener
    
End Class 'UDPMulticastListener