试着替代
Public Function NewEnum() As IUnknown Set NewEnum = m_ObjectCollection.[_NewEnum] End Function
同
Public Function NewEnum() As Collection Set NewEnum = m_ObjectCollection End Function
它对我有用。
您可以将您的成员集合包装在您自己的集合调用中,该集合调用存储密钥和集合。这只是迭代抛出集合并询问元素的键(即你的哈希值)。