Imports System
Imports System.Net

Namespace DNSName

   ' 

   ' Summary description for Class1.
   ' 

   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.DOTNETSPIDER.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