Salut!

J'ai créer un classe qui en fait est une collection d'objets.
J'ai donc dans cette classe les méthodes classiques Add et Remove et les propriétés Item et Count.

Jusque là tout va bien ça fonctionne nickel

Le problème c'est que je veux pouvoir utiliser l'instruction For Each ... In...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
Dim oObject as Object
      For Each oObject In myClass
          ....
      Next oObject
J'ai donc créer la propriété suivante dans ma classe
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
Public Property Get NewEnum() As IUnknown
    'permet d'énumérer la collection avec la syntaxe For...Each
    Set NewEnum = cCol.[_NewEnum]
End Property
et là sur l'instruction For Each oObject In myClass, j'ai une erreur: l'objet ne gère pas cette propriété ou cette méthode.

Ou est mon erreur :