Imports System
Imports System.net
ثم الكود التالى فى Form Load

  Dim strHostName As String
        Dim ipHostEntryData As IPHostEntry
        Dim ipAddress As IPAddress
        strHostName = Dns.GetHostName
        ipHostEntryData = Dns.GetHostByName(strHostName)
        TextBox1.Text = strHostName
        For Each ipAddress In ipHostEntryData.AddressList
            ListBox1.Items.Add(ipAddress.ToString())
        Next