CloseAllForms()

where CloseAllForms.prg contains... *g*

>>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
>>

>
>Are we going for a one-liner? :)