Public oform1
oform1=Newobject("form1")
oform1.Show
Return
Define Class form1 As Form
Top = 0
Left = 0
Height = 700
Width = 1024
ShowWindow = 2
DoCreate = .T.
Caption = "Form1"
WindowState = 2
WindowType = 1
Name = "form1"
Add Object olewebbrowse As OleControl With ;
Top = 6, ;
Left = 5, ;
Height = 500, ;
Width = 1270, ;
Name = "OleWebBrowse", ;
OleClass = "Shell.Explorer.2", ;
OleLCID = 1033
Procedure olewebbrowse.Init
*This.Navigate(SYS(5) + SYS(2003) + "/171.html")
*This.Navigate("http://www.mem.)
This.Navigate("....DOC")
This.Navigate("....PDF")
Endproc
Enddefine