DEFINE CLASS Resizer AS Custom * oScreen = _SCREEN * PROCEDURE INIT *-- So the resize code is triggered at instantiation. _SCREEN.RESIZE() ENDPROC * PROCEDURE oScreen.RESIZE IF TYPE("poAppContr.oShortcutsBar.NAME") == "C" poAppContr.oShortcutsBar.HEIGHT = _SCREEN.HEIGHT ENDIF ENDPROC ENDDEFINENow in VFP8 that raises an error, Object oScreen not found.