for each... in ... loop

i am using this code within a class (called BLUBs)
This class holds a collection with objects of type BLUB in it.

Public Property Get NewEnum() As IUnknown
    Set NewEnum = myCollection.[_NewEnum]
End Property

Now code like this should work (Object XX already initialized)
dim XX as BLUBs
dim X as BLUB

for each X in XX
   ...
I get a runtimeerror. Object does not support this property.
LVL 1
tstrobAsked:
Who is Participating?
 
amebaConnect With a Mentor Commented:
Employees.cls, somewhere in your samples directory:
' NewEnum method enables the use of For
' -------       Each with the Employees
'   collection class.  For an
'   explanation, see "Creating Your Own
'   Collection Class: The House of Bricks"
'   in Books Online.
'
' For NewEnum to work properly, its
'   procedure ID must be set to -4.  To see
'   this, select Procedure Attributes
'   from the Tools menu.  In the Name box,
'   select Item, then click the Advanced
'   button.  You can see that the Procedure
'   ID has been set to -4.  ("Hide this
'   member" is checked, also, so that the
'   NewEnum method is hidden in the Object
'   Browser.)

0
 
tstrobAuthor Commented:
Edited text of question
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.