oCol=createobject('clsCollection') oCol.Add(createobject('form')) ?oCol.Count && 1 define class clsCollection as collection procedure destroy ? this.count && 0!!! endproc enddefine