>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 = 0,; > 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>You see pageframe Height isn't 144, but 148.