for i = 1 to oFrms.Count oFrms(1).Release next>Hi,
>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) >>