谢谢您的帮助!
http://www.vb-helper.com/howto_custom_collection_with_for_each.html
关键部分是将其添加到自定义集合类…
Public Function NewEnum() As IUnknown Set NewEnum = m_Employees.[_NewEnum] End Function
在过程属性中,将过程id设置为-4.