求一个思路和一个定义的方法

&&百钱买百鸡.prg

&&_screen.Visible= .F.
formHeight=280
formWidth=375

objForm=CREATEOBJECT("fm1")
objForm.show
READ EVENTS

DEFINE CLASS fm1 as Form
windowType=1
showWindow=2
Desktop=.t.
autoCenter=.t.
caption="百钱买百鸡（举解法）"
height=formHeight
width=formWidth

ADD OBJECT cmdExit as myCmd1 WITH top=formHeight-5-25,left=formWidth-5-85

ADD OBJECT pageFrame1 as myPf WITH top=5,left=5
&&ADD OBJECT page1 as myPage1
&&ADD OBJECT page2 as myPage2

PROCEDURE UnLoad
CLEAR EVENTS
ENDPROC

&&PROCEDURE ??调整窗口大小
&&思路
&&ENDPROC
ENDDEFINE

DEFINE CLASS myPf as PageFrame
visible=.t.
pageCount=2
height=formHeight-10-25
width=formWidth-5

ENDDEFINE

*!*    DEFINE CLASS myPage1 as Page
*!*        &&
*!*    ENDDEFINE

*!*    DEFINE CLASS myPage2 as Page
*!*        &&
*!*    ENDDEFINE

DEFINE CLASS myCmd1 as CommandButton
visible=.t.
caption="退出"
height=25
width=85

PROCEDURE click
thisform.release
ENDPROC
ENDDEFINE