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