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