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