VB2010 - Aiuto!! Indirizzo IP (lan) in label

[kleiko]

Ciao a tutti
vorrei che in una label comparisse l'indirizzo ip del PC all'interno della rete Lan in cui gira il programma

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

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

Dim IndirizzoIP As String = IpMacchina.AddressList(0).ToString
labelIP.Text = IndirizzoIP


End Sub

non funziona!!!!

mi scrive nella label
fe80::e9d9:dc1b:5979:b466%13

Non riensco a risolvere
sapete aiutarmi
grazie

[kleiko]

RISOLTO!!!!!!!

Public Class Form1
Dim ip As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(System.Net.Dns.GetHos tName)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
labelIP.Text = ip.AddressList.GetValue(0).ToString


End Sub
End Class