VB 6 How to make Custom Collection Class to support For Each

Question

I've been placed on a project whose client front end is written in VB 6, ack! I'm trying to develop a custom collection class that supports the For...Each syntax. Is this possible in VB 6? Or am I stuck with using the For..Next with counter to identify the index.

Thanks for the help!

Answer 1

The key part is adding this to the custom collection class...

Public Function NewEnum() As IUnknown
    Set NewEnum = m_Employees.[_NewEnum]
End Function

and in the procedure attributes, set the procedure id to -4, like so:

Ref: http://www.vb-helper.com/howto_custom_collection_with_for_each.html