Sorry, didnt go there before i wrote
Here's a snippet I came up with based on that:
** Run the function to add the event hook
DO AddHook
FUNCTION AddHook
_Screen.AddObject("MyVfpEventHooks", "VfpEventHooks")
return
DEFINE CLASS VfpEventHooks AS CUSTOM
** Assign a reference to the VFP desktop object
oVfpHook = _Screen
** Add a hook on the resize method
PROCEDURE oVfpHook.Resize
? _Screen.Height
? _Screen.Width
ENDPROC
ENDDEFINE
Everything makes sense in someone's mind
public class SystemCrasher :ICrashable
In addition, an integer field is not for irrational people