> >_Screen.AddObject("oResizer", "Resizer") >DEFINE CLASS Resizer AS Custom > oScreen = _Screen > PROCEDURE oScreen.Resize > IF _screen.WindowState <> 1 && Main VFP Window isn't minimized > FOR i=1 TO _screen.FormCount > IF _screen.Forms(i).AutoCenter > _screen.Forms(i).AutoCenter = .F. > _screen.Forms(i).AutoCenter = .T. > ENDIF > ENDFOR > ENDIF > ENDPROC >ENDDEFINE > > >