Thisform.NewObject('_webbrowser','_webbrowser4',home()+'gallery\_webview.vcx') With Thisform._webbrowser .top=0 .left=0 .Navigate('http://www.whatismyip.org') .Height = 230 .Width = 900 .visible = .f. ENDWITH DO WHILE thisform._webbrowser.Readystate <> 3 INKEY(1) ENDDO MESSAGEBOX('My IP is '+ CHRTRAN(Thisform._webbrowser.Document.Body.InnerHtml,'<PRE>','')) Thisform.RemoveObject("_webbrowser")>how to know the IP addres of the box.