Eliminacion de paginas determinadas en pageframe (codigo)

Hola a

Quiero consultar como puedo hacer para una vez creadas las paginas de un
pageframe puedo eliminar una determinada, por ej:

Para crear el pageframe uso en un boton:

numpag = thisform.pageframe1.PageCount
nompag = "Page"+ALLTRIM(STR(numpag))+"."
numale = 45741 * RAND()+12.5
thisform.pageframe1.&nompag.caption > "P."+ALLTRIM(STR(numpag))+ALLTRIM(STR(numale))
thisform.pageframe1.PageCount = numpag + 1
thisform.pageframe1.&nompag.addobject("boton","boton_cerrar")
thisform.pageframe1.&nompag.boton.visible = .T.

Luego en funciones.prg hago:

DEFINE CLASS boton_cerrar AS COMMANDBUTTON && Crea el boton de cerrar
Caption = 'Cerrar' && Caption on the Command button
Left = 335
Top = 164
Height = 27
Width = 84
PROCEDURE Click
nombre_obj=this.parent.name
objeto = this.parent.parent.&nombre_obj
this.parent.parent.removeobject(objeto)
****>>> this.parent.parent.pagecount > this.parent.parent.pagecount -1
****>>> this.parent.removeobject(objeto)
ENDDEFINE

Bueno con las lineas remarcadas probe y no hay caso: la idea es que en

pagina hay un boton para cerrarla, y dejar el resto pero no doy con la
instruccion apropiada para la eliminacion de pagina.-


Saludos y muchas gracias
Marcelo