_Screen.AddObject("oResizer", "Resizer") DEFINE CLASS Resizer AS Custom oScreen = _Screen PROCEDURE oScreen.Resize IF _screen.WindowState =1 * Main VFP Window is minimized ENDIF ENDPROC ENDDEFINE