PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form Top = 0 Left = 0 Height = 250 Width = 599 DoCreate = .T. Caption = "Form1" AllowOutput = .F. Name = "Form1" ADD OBJECT command1 AS commandbutton WITH ; Top = 200, ; Left = 196, ; Height = 27, ; Width = 84, ; Caption = "Command1", ; Name = "Command1" ADD OBJECT pageframe1 AS pageframe WITH ; ErasePage = .T., ; PageCount = 2, ; Top = 11, ; Left = 9, ; Width = 241, ; Height = 169, ; Name = "Pageframe1", ; Page1.Caption = "Page1", ; Page1.Name = "Page1", ; Page2.Caption = "Page2", ; Page2.Name = "Page2" ADD OBJECT form1.pageframe1.page1.text1 AS textbox WITH ; Height = 23, ; Left = 51, ; Top = 27, ; Width = 100, ; Name = "Text1" ADD OBJECT pageframe2 AS pageframe WITH ; ErasePage = .T., ; PageCount = 2, ; ActivePage = 2, ; Top = 13, ; Left = 259, ; Width = 272, ; Height = 169, ; Name = "Pageframe2", ; Page1.Caption = "Page1", ; Page1.Name = "Page1", ; Page2.Caption = "Page2", ; Page2.Name = "Page2" ADD OBJECT form1.pageframe2.page1.text1 AS textbox WITH ; Height = 23, ; Left = 51, ; Top = 27, ; Width = 100, ; Name = "Text1" PROCEDURE pageframe1.Page1.Activate ? "page activate",this.name ENDPROC PROCEDURE pageframe2.Page1.Activate ? "page activate",this.name ENDPROC ENDDEFINE