[VB6] Ottenere il proprio indirizzo IP esterno in DLL ActiveX

[oregon]

Per esempio cosi'

Dim o As Object
Dim IP As String

Set o = CreateObject("InetCtls.Inet")
IP = o.OpenURL("http://pchelplive.com/ip.php")
Set o = Nothing

' Nella variabile IP hai quello che ti serve