Thanks to everyone that answered. The while loop code seemed to work.

Thanks again,

Jim

>Jim,
>
>Everyone else has told you what is wrong with the code. Here's an alternative that uses FOR EACH to do it;
>
>

>FOR EACH oForm IN _SCREEN.Froms
>   oForm.Release()
>ENDFOR
>