I am trying to close all screen object in my program when the user clicks Exit. I am getting an error that says forms is not an object on the line after the beginning of the for loop. My code is below.

Please help and thanks,

Jim


private lndatspast
lndayspast = date() - ae.backupdate
IF lndayspast > bkdays
FOR I = 1 to _SCREEN.FORMCOUNT
_SCREEN.FORMS(i).release
ENDFOR
IF MESSAGEBOX("Warning: You have not performed a backup in " + alltrim(STR(lndayspast)) +" days." + CHR(13)+ ;
"Would you like to bakup now?",20,gcappname) = 6
DO form backrest
else
do exit_prg
ENDIF
ELSE
do exit_prg
ENDIF