Dim callback as AsyncCallback = new AsyncCallback( _
              ProcessDnsInformation)
            host = Console.ReadLine()
            Dns.BeginGetHostEntry(host, callBack, host)
 
            Shared Sub ProcessDnsInformation(result as IAsyncResult)
                Console.WriteLine(CType(result.AsyncState, String))
            End Sub

fg viperbone