PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN


	**************************************************
*-- Form:         form1 (c:\form1.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   06/30/05 01:40:03 PM
*
DEFINE CLASS form1 AS form


	Top = 0
	Left = 0
	Height = 188
	Width = 380
	DoCreate = .T.
	Caption = "Form1"
	_memberdata = ""
	Name = "Form1"


	ADD OBJECT pageframe1 AS pageframe WITH ;
		ErasePage = .T., ;
		PageCount = 2, ;
		Top = 13, ;
		Left = 3, ;
		Width = 374, ;
		Height = 169, ;
		Name = "Pageframe1", ;
		Page1.Caption = "Page1", ;
		Page1.PageOrder = 2, ;
		Page1.Name = "Page1", ;
		Page2.Caption = "Page2", ;
		Page2.PageOrder = 1, ;
		Page2.Name = "Page2"


	PROCEDURE pageframe1.Page1.Deactivate
		wait window 'Page 1: Deactivate' timeout 1
	ENDPROC


	PROCEDURE pageframe1.Page1.Activate
		wait window 'Page 1: Activate' timeout 1
	ENDPROC


	PROCEDURE pageframe1.Page2.Deactivate
		wait window 'Page 2: Deactivate' timeout 1
	ENDPROC


	PROCEDURE pageframe1.Page2.Activate
		wait window 'Page 2: Activate' timeout 1
	ENDPROC


ENDDEFINE
*
*-- EndDefine: form1
**************************************************