Works OK on mine, what Version of VFP are you using ?

Kev
>Kevin
>
>DEFINE CLASS Resizer AS Custom
> oScreen = _Screen
>
> PROCEDURE oScreen.Resize
> *Resize Code Here
> ENDPROC
>ENDDEFINE
>
>_Screen.AddObject("oResizer", "Resizer")
>
>Dennis