>I want to add pages to a pageframe on the fly. How do I get code run
>when the user clicks/rightclicks in a newly added page?
>
>Thanks

Design your pageframe as a class that also uses your sublassed pages. This would be done in a nonvisual (prg) way easily. ie:

Define class myPageFrame as pageframe
  Procedure init
  Lparameters tnPages
  This.pagecount=0
  For ix=1 to tnPages
    This.addobject('page'+padl(ix,2,'0'),'myPage')
  Endfor
  This.setall('Visible',.t.)
Endproc
Enddefine

Define class myPage as Page
  Procedure click
  Wait window nowait 'hello'
Endproc
  Procedure rightclick
  Wait window nowait 'there'
Endproc
Enddefine

Cetin