clear PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show _screen.Show oform1.Show _screen.Show oform1.Show ? "set pageframe2 to first position zorder = controls index" ? "and activate is fired" oform1.pageframe2.Zorder(1) _screen.Show oform1.Show RETURN DEFINE CLASS form1 AS form Height = 250 Width = 285 DoCreate = .T. AutoCenter = .T. Caption = "Form1" AllowOutput = .F. Name = "Form1" ADD OBJECT pageframe1 AS pageframe WITH ; PageCount = 1; , Visible = .F. ADD OBJECT pageframe2 AS pageframe WITH ; Anchor = 8, ; PageCount = 2, ; activepage = 2,; Top = 38, ; Left = 40, ; Width = 162, ; Height = 169 PROCEDURE Activate ? "form activate" ENDPROC PROCEDURE DeActivate ? "form deactivate" ENDPROC PROCEDURE pageframe2.Page1.Activate ? "activate pageframe page1" ENDPROC PROCEDURE pageframe2.Page2.Activate ? "activate pageframe page2" ENDPROC PROCEDURE pageframe2.Page2.deActivate ? "deactivate pageframe page2" ENDPROC ENDDEFINE