Hola:
En un Form con 1 Label, copia y pega el siguiente codigo
'Hay que añadir una referencia a System.Management
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
Me.Label1.Text = lF_sDireccionIP()
End Sub
Private Function lF_sDireccionIP() As String
Dim query As New System.Management.ManagementObjectSearcher("Select * From WIN32_NetworkAdapterConfiguration Where IPEnabled = 'TRUE'")
Dim queryCollection As System.Management.ManagementObjectCollection = query.Get()
Dim mo As New System.Management.ManagementObject
Dim strIPAddress As String = ""
For Each mo In queryCollection
Dim strAddresses() As String = CType(mo("IPAddress"), String())
For Each strIPAddress In strAddresses
Exit For
Next
If strIPAddress <> "" Then Exit For
Next
'--Liberando Memoria--
query.Dispose()
query = Nothing
queryCollection.Dispose()
queryCollection = Nothing
mo.Dispose()
mo = Nothing
'---------------------
Return strIPAddress
End Function
End Class
Un saludo desde Bilbo
Carlos