ホスト名からIPアドレス、IPアドレスからホスト名を取得する

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'IPアドレスからホスト名を取得
        Dim server As String = TextBox1.Text
        'IPHostEntryのインスタンスを作成
        Dim iphe As System.Net.IPHostEntry = System.Net.Dns.Resolve(server)
        'ホスト名を取得
        TextBox2.Text = (iphe.HostName)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'ホスト名からIPアドレスを取得
        Dim server As String = TextBox2.Text
        'IPHostEntryのインスタンスを作成
        Dim iphe As System.Net.IPHostEntry = System.Net.Dns.Resolve(server)
        'IPアドレスのリストを取得し、はじめのIPアドレスを取得
        Dim hostadd As System.Net.IPAddress = iphe.AddressList(0)
        '文字列に変換
        TextBox1.Text = (hostadd.ToString())
    End Sub