[VB6] Ottenere il proprio indirizzo IP (anche dietro router/firewall)

[oregon]

Qualcosa del genere

    Dim o As Object
    Dim IIP As String

    Set o = CreateObject("InetCtls.Inet")
    IIP = o.OpenURL("http://pchelplive.com/ip.php")
    MsgBox ("Internet IP: " & IIP)

    Set o = Nothing