Dim Address() As System.Net.IPAddress
        Dim i As Integer
        Address = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList
        TextBox1.Text = System.Net.Dns.GetHostName().ToString()
        For i = 0 To UBound(Address)
            TextBox2.Text = TextBox2.Text & Chr(13) & Address(i).ToString()
        Next
    End Sub
End Class