CLEAR ON ERROR ?? "Error: ",MESSAGE() =NEWOBJECT("pageframe1") DEFINE CLASS pageframe1 AS Pageframe Pagecount = 1 PROCEDURE Init ? "Pagecount is",this.PageCount ? "Now remove the page1",this.RemoveObject("Page1") ? "Pagecount is",this.PageCount ? "this.Page1 is a ",this.Page1 ? "AMEMBER(PAGE1) = #",AMEMBERS(AMM,this.Page1) ? "this.Page1.name is ",this.Page1.Name ? "Addobject fire a error: ",this.AddObject("Page1","page") ? "Add a page member it makes to relive the zombi" this.PageCount = 1 ? "this.Page1.name is ",this.Page1.Name ENDDEFINE