PUBLIC oHandler oHandler=NEWOBJECT("Resizer") BINDEVENT(_SCREEN,"Resize",oHandler,"Resize") DEFINE CLASS Resizer AS Custom PROCEDURE Resize DEBUGOUT _SCREEN.WindowState ENDPROC ENDDEFINE