I'm having a minor issue with the following routine to close any open windows when my application does an auto shutdown due in inactivity. I'm not sure why this is, but I keep gettings FORMS is not an object in my error log. The application does close any open dialogs, but with 50 users, the log is getting filled up with this error message.

Thanks for any help.

local lnForms, i
lnForms = _screen.formcount
SET MESSAGE TO [Closing Dialogs...]
IF lnForms > 0
	FOR i = lnForms to 1 STEP -1
		IF VARTYPE(_screen.Forms)=[O]                                                      << FORMS is not an object
			SET MESSAGE TO [Closing Dialog: ]+_screen.Forms(i).Name    << FORMS is not an object
			_screen.Forms(i).Release                                                          << FORMS is not an object
		ENDIF 
	ENDFOR
ENDIF