PUBLIC oform1

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

DEFINE CLASS form1 AS form

	Height = 333
	Width = 375
	autocenter = .T.
	Caption = "Form1"

	ADD OBJECT container1 AS container WITH ;
		Top = 10, ;
		Left = 104, ;
		Width = 200, ;
		Height = 60, ;
		Visible = .F., ;
		Name = "Container1"


	ADD OBJECT pageframe1 AS pageframe WITH ;
		PageCount = 2, ;
		Top = 86, ;
		Left = 106, ;
		Width = 241, ;
		Height = 112

	ADD OBJECT command2 AS commandbutton WITH ;
		Top = 92, ;
		Left = 12, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "click", ;
		Name = "Command2"

	PROCEDURE Init
		this.pageframe1.page1.Addobject("text1","textbox")
		this.pageframe1.page1.text1.Visible = .T.
               * disable pageframe and page
		this.pageframe1.Enabled = .F.
		this.pageframe1.page1.Enabled = .F.
				
	PROCEDURE command2.Click
		thisform.pageframe1.page1.Text1.SetFocus
	ENDPROC

ENDDEFINE