This can be done in code

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 

>It appears that there is no capability to create a Page Class in VFP 7?
>Is it possible to emulate this?
>
>If neither is possible, how can I load code into the Activate Method after I add a page object to a framepage?
>
>TIA.