Hi

Run this Code:

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.

Fabio