<b>_Screen.AddObject("oResizer", "Resizer")</b>
>
>DEFINE CLASS Resizer AS Custom
>     oScreen = _Screen
>
>     PROCEDURE oScreen.Resize
>          *Resize Code Here
>     ENDPROC
>ENDDEFINE
>