clear PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show _screen.Show oform1.Show _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 ; ErasePage = .T., ; PageCount = 2, ; activepage = 2,; Top = 38, ; Left = 40, ; Width = 162, ; Height = 169 PROCEDURE Activate ? "form activate" ENDPROC PROCEDURE pageframe1.Page1.Activate ? "activate pageframe page1" ENDPROC PROCEDURE pageframe1.Page2.Activate ? "activate pageframe page2" ENDPROC ENDDEFINE