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")