Terry,

You'd better loop from screen.formcount to 1 step -1.
If you start by one, the formcount may have decreased by the time you get to lnFormCount.

Then, _SCREEN.Forms( lnFormNo).name will throw in an error


UPDATE: Hence the index you are returning may be wrong (form gone, index of wrong form)
__________

>Peter
>
>Sorry, I haven't time to adapt this but might the main body of this code be useful?
>
>Terry
>
>
>

>* Supplied with a form's name property, go thru list of
>* open forms to see if that form is open.
>* ____________________
>LPARAMETER	tcFormName
>LOCAL		lnFormCount, llOpen, lnFormNo, lnOpenFormNo
>
>llOpen		= .F.
>lnFormCount 	= _SCREEN.FormCount
>lnOpenFormNo	= 0
>If lnFormCount > 0
>    lnFormNo 	= 1
>    Do WHILE lnFormNo <= lnFormCount ;
>       AND   not llOpen
>      If ALLTRIM( LOWER( _SCREEN.Forms( lnFormNo).Name)) = ALLTRIM( LOWER( tcFormName))
>          llOpen	      = .T.
>          lnOpenFormNo  = lnFormNo
>      Else
>         lnFormNo	      = lnFormNo + 1
>     Endif
>    EndDo
>Endif
>
>Return lnOpenFormNo		&& index of specified inquiry form