> >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 >