Something like (I can't remember exactly what I use, becuase the project is not here rght now):
lnFormToClose = 1
FOR lnForm = 1 TO _screen.FormCount
IF TYPE("_screen.Forms(lnFormToClose)") == "O" .AND. .NOT. ISNULL(_screen.Forms(lnFormToClose))
IF _screen.Forms(lnFormToClose).Baseclass == "Form"
_screen.Forms(lnFormToClose).Release()
ELSE
lnFormToClose = lnFormToClose + 1
ENDIF
ENDIF
NEXT
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
