Public Shared Function ResolveDNS(ByVal Host As String) As String Dim Entry As Net.IPHostEntry = Net.Dns.GetHostEntry(Host) Dim Address As Net.IPAddress() = Entry.AddressList Return Address.GetValue(0).ToString End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click txtIP.Text = ResolveDNS(txtHost.Text) End Sub