Imports System
Imports System.Net
Namespace DNSName
' <summary>
' Summary description for Class1.
' </summary>
Class Class1
'Entry point which delegates to C-style main Private Function
Public Overloads Shared Sub Main()
Main(System.Environment.GetCommandLineArgs())
End Sub
Overloads Shared Sub Main(args() As String)
Dim ipEntry As IPHostEntry = Dns.GetHostByName("http://www.xtremedotnettalk.com/")
Dim IpAddr As IPAddress() = ipEntry.AddressList
Dim i As Integer
For i = 0 To IpAddr.Length - 1
Console.WriteLine("IP Address {0}: {1} ", i, IpAddr(i).ToString())
Next i
End Sub 'Main
End Class 'Class1
End Namespace 'DNSName