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