[مساعدة]

اشكرك استاذ ابو ليلى
فقد استفدت من اشارتك الى AddressFamily

فعدلت الكود الذي في مشاركتي ليصبح كالتالي

كود :

Dim localIP As String =
   Dns.GetHostEntry(Dns.GetHostName).AddressList.
   Where(Function(x) x.AddressFamily.Equals(Sockets.AddressFamily.InterNetwork)).
   FirstOrDefault.ToString

MsgBox(localIP)

---

اشكرك استاذ ابو ليلى