vb.net win7下如其显示IP

vb.net win7下如果显示IP
System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName).AddressList(0)在winxp下可以获取IP，但到了win7下就显示成了::1字符。ipv6的勾已经去掉了。IP也只有1个。
如何才能在win7下正常显示？

vs2010
------解决方案--------------------
::1本机调试IP，你部署后的程序运行是你本机真正的IP.
------解决方案--------------------
写法需要更改下:
System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList.GetValue(0).ToString()
这样试下呢
------解决方案--------------------
  Dim ipadress As System.Net.IPAddress() = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName).AddressList()
        Dim ip As String = ipadress(2).ToString()