Larry,

* 15-Jun-98 CloseForms.prg

* 15-Jun-98 made into separate program

procedure CloseForms

for i = _screen.FormCount to 1 step -1
   * 15-May-98 added additional tests to prevent 1924 error
   * 25-Aug-98 changed < to <=
   if ( ( i <= _screen.FormCount ) and ;
        ( type( "_screen.Forms[i]" ) == "O" ) )

      if ( _screen.Forms[i].QueryUnload() )
         _screen.Forms[i].Release()
      else
         _screen.Forms[i].Activate()
      endif
   endif
endfor

>How can I close all open forms when the user presses Exit on my file menu. I used to stick to modal forms and therefore the user could *not* select file/exit unless all forms were closed. Now I'd like to be a little more 'windows' like and allow multiple forms open at the same time, hence the modeless setting.