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