Public lcUrl
lcUrl = "www.yourdomain.com"
oform = Createobject("Explorer")
oform.AddObject("iExp","iExp")
oform.iExp.Height = oform.Height-1
oform.iExp.Width = oform.Width-1
oform.iExp.Navigate(lcUrl)
oform.Show()
Define Class Explorer As Form
Autocenter = .t.
Height = 600
Width = 800
Caption = "Navigate the Internet"
Enddefine
Define Class iExp As OleControl
OleClass = "Shell.Explorer"
Procedure Refresh
Nodefault
Endproc
Visible = .T.
Enddefine