Even More:
FOR lnForm = _screen.FormCount TO 1 STEP -1
IF TYPE("_screen.Forms(lnForm).Name") == "C" AND _screen.Forms(lnForm).Baseclass == "Form"
_screen.Forms(lnForm).Release()
ENDIF
ENDFOR>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
>>
'If the people lead, the leaders will follow'
'War does not determine who is RIGHT, just who is LEFT'
