PUBLIC oform1

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

DEFINE CLASS form1 AS form


	Height = 293
	Width = 266
	DoCreate = .T.
	AutoCenter = .T.
	Caption = "Form1"
	BackColor = RGB(0,0,255)
	AllowOutput = .F.
	Name = "Form1"


	ADD OBJECT pageframe1 AS pageframe WITH ;
		ErasePage = .T., ;
		PageCount = 9, ;
		TabStretch = 0, ;
		Top = 18, ;
		Left = 40, ;
		Width = 170, ;
		Height = 250, ; && ****** LOOK 
		TabOrientation = 1

	PROCEDURE gotfocus
                clear
		? this.pageframe1.height
ENDDEFINE