Use BINDEVENT().

VFP 8.0 don't support _screen hack.

MartinJ


>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
>
>