>PUBLIC oform1 >oform1=NEWOBJECT("form1") >oform1.Show >RETURN >DEFINE CLASS form1 AS form > ADD OBJECT pageframe1 AS pageframe WITH ; > PageCount = 2, ; > Top = 74, ; > Left = 20, ; > Width = 241, ; > Height = 169, ; > TabOrientation = 2 > > PROCEDURE Init > WITH thisform.pageframe1 > .Move(.left,.top,.width,2) > endwith > ENDPROC > >ENDDEFINE