PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT pageframe1 AS pageframe WITH ; ErasePage = .T., ; PageCount = 1, ; Top = 36, ; Left = 36, ; Width = 241, ; Height = 169, ; Name = "Pageframe1", ; Page1.Caption = "Click here", ; Page1.Name = "Page1" PROCEDURE pageframe1.page1.Init this.AddObject("text1","textbox") WITH this.text1 .visible = .Move(59,44) ENDWITH ENDPROC PROCEDURE GotFocus KEYBOARD '{TAB}' PLAIN CLEAR ENDPROC PROCEDURE pageframe1.Page1.Deactivate MESSAGEBOX("deactivate") ENDPROC ENDDEFINE