IP Adresini bulmak(vb.net)

Public Function GetIPAddress() As String

        Dim h As System.Net.IPHostEntry = _
System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName)

        Return h.AddressList.GetValue(0).ToString

    End Function