DEFINE CLASS ScreenHook AS Custom oScr = _SCREEN && Set a property referenace to the Screen object oVFP = _VFP FUNCTION oScr.Resize IF TYPE("Applic") = "O" AND !ISNULL(Applic) AND ; PEMSTATUS(Applic, "ResizeDesktop",5) Applic.ResizeDesktop ENDIF ENDFUNC ENDDEFINEI´m getting real dissapointed by installing this SP1....