[RA1N]

Code

Dim Hostname1 = Dns.GetHostEntry(Host2Resolve.Text)
        Dim ip1 As IPAddress() = Hostname1.AddressList
        CrystalClearTextBox1.Text = ip1(0).ToString
        Try
            CrystalClearProgressBar1.Value = 0
            For i = 0 To My.Settings.testDomains.Count
                Dim Hostname = Dns.GetHostEntry(My.Settings.testDomains.Item(i) & Host2Resolve.Text)
                Dim ip As IPAddress() = Hostname.AddressList
                Try
                    ResolvedHost.Text = ip(0).ToString
                Catch ex As Exception
                    CrystalClearProgressBar1.Value += 10
                End Try
            Next
        Catch ex As Exception
        End Try

Make an array with these values:

Code

mail.
direct.
direct-connect.
cpanel.
ftp.
forum.
blog.
m.
dev.
webmail.