To create a collection class you can use with the For Each…Next syntax, add a subroutine that looks like this:
Private myCollection As CollectionPublic Property Get NewEnum() As IUnknown Set NewEnum = myCollection.[_NewEnum]End Property
Click on the Tools menu and select Procedure Attributes. Select the NewEnum procedure from the combo box. Click on the “Advanced >>” button. In the ProcedureID field, enter the value -4. Check the “Hide this member” checkbox. Now you can use the For Each…Next syntax with your collection class in the same way as a standard collection.