Dim s As String = ""
Dim addressList As System.Net.IPAddress() = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList
Dim i As Integer
For i = 0 To addressList.Length - 1
s = addressList(i).ToString() + ControlChars.Lf
ListBox1.Items.Add(s)