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 = 2, ; Top = 74, ; Left = 20, ; Width = 241, ; Height = 169, ; Name = "Pageframe1", ; Page1.Caption = "Page1", ; Page1.Name = "Page1", ; Page2.Caption = "Page2", ; Page2.Name = "Page2" ADD OBJECT label1 AS label WITH ; AutoSize = .T., ; FontBold = .T., ; FontName = "Wingdings", ; FontSize = 24, ; Caption = "Ê", ; Height = 38, ; Left = 178, ; Top = 30, ; Width = 37, ; ForeColor = RGB(255,0,0), ; BackColor = RGB(255,255,0), ; Name = "Label1" PROCEDURE Init WITH thisform.pageframe1 .Move(.left,.top,.width,1) endwith ENDPROC ENDDEFINE