XX_Hook=CREATEOBJECT("XX_Hook") =BINDEVENT(_Screen,"Resize",XX_Hook,"Resize") READ EVENTS =UNBINDEVENT(_Screen,"Resize",XX_Hook,"Resize") RETURN DEFINE CLASS XX_Hook AS custom PROCEDURE Resize() * Your code ENDPROC ENDDEFINE