Hi Allen, I use the _screen.forms() function. This function returns the numeric index of visible forms. I created a function that will let me know if a form is visible by using the form's name.

I hope this helps.
Kurtwood


cFormName = _Screen.Forms(FormName("form2")).Name

IF THISForm.Name = cFormName
**Form is not Active/Visible
ELSE
**Form is Active/Visible
ENDIF


*-----------------------------
FUNCTION FormName
PARAMETER xformname
nFormCount = _Screen.FormCount

FOR n = 1 TO nFormCount
nFormNumber = 1
IF UPPER(_Screen.Forms(n).name) == UPPER(xFormName)
nFormNumber = n
EXIT
ENDIF
ENDFOR
RETURN(nFormNumber)
ENDFUNC