>>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 >>>