>I was thinking replacing this
>
>

>IF PEMSTATUS(_VFP, [ActiveProject], 5) AND ;
>    [O] = TYPE("_VFP.ACTIVEPROJECT") AND ;
>    !EMPTY(_VFP.ACTIVEPROJECT.HOMEDIR)
>
>	* Do something
>ENDIF
>

>
>With
>
>

>IF [C] = TYPE([_VFP.ACTIVEPROJECT.HOMEDIR]) AND ;
>    !EMPTY(_VFP.ACTIVEPROJECT.HOMEDIR)
>
>	* Do something
>ENDIF
>

>
>Any better suggestion?

?_vfp.Projects.Count