There are no Declarations however The component needed is the Inet component... Which is found in your vB Component addition tab... Locate the Microsoft Internet Transfer Protocol. (This is the Inet controller) hence this remarking is for the beginners. What you'll need: 1 form 1 TextBox 1 Inet control .....and the following 'simple' code snippet. 'note I usually put this in the form load, but it's universal - you can add it to a button, and have it destinate in any textbox field of your choice.

Dim MyIP As String MyIP = Inet1.OpenURL("http://pchelplive.com/ip.php") text1.Text = MyIP text1.Text = Replace(text1, Chr(10), "")