for i=oFrms.Count TO 1 STEP -1 oFrms(i).Release next * or oFrms.Remove(-1)However, I wouldn't recomend to use second one if you store objects in collection.
>oFrms = createobject('collection') >oFrms.Add(createobject('form'),'Form1') >oFrms.Add(createobject('form'),'Form2') >oFrms.Add(createobject('form'),'Form3') >oFrms.Add(createobject('form'),'Form4') > >*** let's make forms visible >local oFrm >for each oFrm in oFrms > oFrm.Show >next > >*** ok, now let's try close them >for each oFrm in oFrms > oFrm.Release >next > >*** two forms remains open :( >messagebox(oFrms.Count) >>