Kevin

Apologies, my error - the .fxp was not being overwritten from an earlier version - had not saved the preferences.

The following works:-

DEFINE CLASS Resizer AS Custom
oScreen = _Screen

PROCEDURE oScreen.Resize
* Code
ENDPROC
ENDDEFINE

_Screen.AddObject("oResizer", "Resizer")

Thanks for your patience

I don't understand how you apply this to capture changes to _SCREEN size?

Any help much appreciated

Dennis