Publi oform
oform=Newobject("yform")
oform.Show
Read Events
Retu

Define Class yform As Form
	Height = 402
	Width = 721
	ShowWindow = 2
	AutoCenter = .T.
	Caption = "Form1"
	Name = "Form1"


	Add Object container1 As ycont With ;
		Anchor = 768, ;
		Top = 0, ;
		Left = 5, ;
		Width = 709, ;
		Height = 61, ;
		borderwidth=0,;
		Name = "Container1"



	Add Object olecontrol1 As OleControl With ;
		oleclass="shell.explorer.2",;
		Anchor = 15, ;
		Top = 84, ;
		Left = 24, ;
		Height = 205, ;
		Width = 217, ;
		Name = "Olecontrol1"

	Procedure olecontrol1.Init
	With This
		.Silent=.T.
		.Navigate("www.atoutfox.org/")
		.Left=0
		.Top=Thisform.container1.Top+Thisform.container1.Height+20
		.Width=Thisform.Width
		.Height=Thisform.Height-Thisform.container1.Height-20
	Endwith
	Endproc

	Procedure Destroy
	oform=Null
	Release oform
	Clea Events
	Endproc
Enddefine
************

Define Class ycont As Container
	Anchor = 768
	Top = 0
	Left = 5
	Width = 709
	Height = 61
	Name = "Container1"

	Add Object label1 As Label With ;
		Caption = "Label1", ;
		Height = 37, ;
		Left = 7, ;
		Top = 12, ;
		Width = 289, ;
		Name = "Label1"

	Add Object command1 As CommandButton With ;
		Top = 12, ;
		Left = 355, ;
		Height = 37, ;
		Width = 277, ;
		Caption = "Command1", ;
		Name = "Command1"

Enddefine
*
*-- EndDefine: ycont