> FOR EACH loForm In _Screen.Forms > =Messagebox('Here is the form: ' + loForm.Name) > IF loForm.caption = 'OrderEntry_Scx' > *!* loForm.Release() > *!* loForm.Name.Release() > *!* OrderEntry_Scx.Release() > *!* loForm.Release > *!* loForm.Name.Release > *!* OrderEntry_Scx.Release > ENDIF > NEXT >The reason for this problem as you can not remove an object from collection using FOR EACH loop. This problem was discussed here before and I admit I made the same mistake myself (and may be twice even). You need to loop using counter and from the last record to the first.