Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Net.Sockets
public class MainClass
Shared Sub Main()
Dim udpClient As New UdpClient()
Dim multicastIpAddress As IPAddress = IPAddress.Parse("139.155.155.155")
Try
udpClient.JoinMulticastGroup(multicastIpAddress, 50)
Catch e As Exception
Console.WriteLine(e.ToString())
End Try
End Sub
End Class