Olá

o código seguinte funciona bem no VFP 6 , mas não funciona no VFP 8 .

Alguma ideia ?

Muito obrigado

_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