See
How can I release all open forms FAQ #7975
>I'm trying to find and close all active forms. the problem is during run time form names are not used also there may be several forms with the same name. What is the correc way of doing this?
>
>
>LOCAL lnFormCount, k, dum
>
>*-- get a active form count
>lnFormCount = _screen.FormCount
>
>*-- get non found getout
>IF lnFormCount = 0
> RETURN
>ENDIF
>
>*-- close all forms
>FOR k = lnFormCount TO 1 STEP -1
>
> dum = ALLTRIM(_screen.Forms(k).name) + '.Release()'
> &dum
>
>next
>
If it's not broken, fix it until it is.
My Blog