You can start from the bottom of the list and simplify code
FOR lnForm = _screen.FormCount TO 1 STEP -1
IF TYPE("_screen.Forms(lnForm).Name") == "C"
IF _screen.Forms(lnForm).Baseclass == "Form"
_screen.Forms(lnForm).Release()
ENDIF
ENDIF
ENDFOR>>Kirk
>
>
>lnFormToClose = 1
>FOR lnForm = 1 TO _screen.FormCount
> IF TYPE("_screen.Forms(lnFormToClose).Name") == "C"
> IF _screen.Forms(lnFormToClose).Baseclass == "Form"
> _screen.Forms(lnFormToClose).Release()
> ELSE
> lnFormToClose = lnFormToClose + 1
> ENDIF
> ENDIF
>NEXT
>
--sb--
