PUBLIC x x = CREATEOBJECT("form") x.ADDOBJECT("pf1","myPageFrame") x.pf1.Visible = .T. x.Show() DEFINE CLASS myPageFrame AS PageFrame MemberClassLibrary = 'myPages.PRG' MemberClass = 'myPage' ANCHOR = 240 PageCount = 1 TOP = 10 LEFT = 10 HEIGHT = 200 WIDTH = 250 ENDDEFINE DEFINE CLASS myPage AS Page PROCEDURE CLICK this.AddObject("cn","container") this.cn.anchor = 240 this.cn.height = this.Parent.Height-30 this.cn.width = this.Parent.width -10 this.cn.visible = .T. ENDPROC ENDDEFINE