>DEFINE CLASS myPage as Page > PROCEDURE click > =MESSAGEBOX('I have been clicked') > ENDPROC >ENDDEFINE > >DEFINE CLASS myPageFrame as PageFrame > pagecount=0 > PROCEDURE pagecount_assign (lnNumPages as Integer) > LOCAL x > FOR x=1 TO lnNumPages > this.NewObject('myPage'+TRANSFORM(x),'myPage') > ENDFOR > ENDPROC >ENDDEFINE >>