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