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 pos

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