creo q con esto valdra
a mi m sale, lo k no se si d los q disponen de una lan les sale la la publica o privada

Código [Seleccionar]
Private Sub Form_Load()
Label1.Caption = winsock.LocalIP
End Sub