DEFINE CLASS TrapResize AS Custom oScreen = _Screen PROCEDURE oScreen.Resize && had to change <b>oScreen.oWallPaper.TakePlace() </b> for _SCREEN.oWallPaper.TakePlace() ENDPROC ENDDEFINE