PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form AutoCenter = .T. Height = 600 Width = 600 Caption = "Bug1 Pageframe" Name = "Form1" ADD OBJECT cnt1 AS cnt WITH ; Top = 168, ; Left = 49, ; Width = 240, ; Height = 179, ; Name = "Cnt1", ; Pageframe1.Height = 144,; Pageframe1.Page1.Name = "Page1", ; Pageframe1.Page2.Name = "Page2", ; Pageframe1.Name = "Pageframe1" PROCEDURE cnt1.Pageframe1.Init MESSAGEBOX(THIS.Name+" HEIGHT ="+TRANSFORM(this.Height); +" WIDTH ="+TRANSFORM(this.width)) ENDPROC ENDDEFINE DEFINE CLASS cnt AS container Name = "cnt" ADD OBJECT Pageframe1 AS pageframe WITH ; TabOrientation = 2,; PageCount = 2, ; Top = 14, ; Left = 18, ; Width = 123, ; Height = 123, ; Name = "Pageframe1", ; Page1.Caption = "Page1", ; Page1.Name = "Page1", ; Page2.Caption = "Page2", ; Page2.Name = "Page2" ENDDEFINE>