Dim LocalIP As IPAddress = Dns.GetHostAddresses("").Where(Function(ip) ip.AddressFamily = AddressFamily.InterNetwork).First()
Textbox1.Text = LocalIP.ToString()
Imports System.Net
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim hostr As New IPHostEntry hostr = Dns.GetHostByName("") For Each nn In hostr.AddressList MsgBox(nn.ToString) Next End Sub