>PUBLIC oform1 > >oform1=NEWOBJECT("form1") >oform1.Show >RETURN > >DEFINE CLASS form1 AS form > > > Height = 293 > Width = 266 > DoCreate = .T. > AutoCenter = .T. > Caption = "Form1" > BackColor = RGB(0,0,255) > AllowOutput = .F. > Name = "Form1" > > > ADD OBJECT pageframe1 AS pageframe WITH ; > ErasePage = .T., ; > PageCount = 9, ; > TabStretch = 0, ; > Top = 18, ; > Left = 40, ; > Width = 170, ; > Height = 250, ; > TabOrientation = 1 > > PROCEDURE gotfocus > this.pageframe1.height=250 >ENDDEFINE >