Review the code snippet before inserting it on your project.
TextBox1.Text = CStr(AxInet1.OpenURL("http://www.whatismyip.org", 0)) you have to go on the toolbox then right click then add tab then chose the component tab then add microsoft internet trasfer tool. to declare axnet1
With from Barcelona