Dim IP As System.Net.IPAddress
        Dim IPs As System.Net.IPAddress() = System.Net.Dns.GetHostByName( _
          System.Net.Dns.GetHostName()).AddressList
        For Each IP In IPs
            ListBox1.Items.Add(IP.ToString)
        Next
        Dim s As String
        Dim x As Integer
        s = "Es wurde(n) " + CStr(ListBox1.Items.Count) + " IP-Adresse(n)" & _
          "gefunden" + vbCrLf + vbCrLf
        For x = 0 To ListBox1.Items.Count - 1
            s = s + CStr(x + 1) + ". IP-Adresse: " + CStr(ListBox1.Items.Item( _
              x)) + vbCrLf
        Next
        MsgBox(s, MsgBoxStyle.Information, "IP-Tool")
        End