Hi

the following code works well in VFP 6 , but don´t work in VFP 8 .
Can you help me ?

Thanks

_Screen.AddObject("oResizer_Laja", "Resizer_Laja")


DEFINE CLASS Resizer_Laja 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