Hi Tracy,

You can not release forms this way using collection. Also you may have a problem with QueryUnload which is not defined for the toolbars (they are also in the form's collection).

>Do you have any code in the release or the queryunload that prompts the user for an input? If not then you can try something like:
>

>llokay = .T.
>FOR EACH loForm IN _VFP.FORMS
>	IF VARTYPE(loForm) = "O"
>		IF loform.QUERYUNLOAD()
>			loForm.RELEASE()
>		ELSE
>			STORE .F. TO llokay
>		ENDIF
>	ENDIF
>ENDFOR
>IF !llokay
>	=MESSAGEBOX('An Error Ocurred Attempting to Exit.',0+16+4096,'ERROR')
>	RETURN TO MASTER
>ENDIF
>

>
>Otherwise, you might have to try something like:
>
>DECLARE Integer ExitProcess IN Win32API
>ExitProcess()
>
>
>
>>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
>>