Problème pour comprendre Implements

Bonjour,

je cherche actuellement à comprendre comment fonctionne Implements, et malgré les autres fils du forum à ce propos, j'ai du mal à voir comment rendre correct ce qui suit.

Je commence par définir une classe-interface cMere qui contient un attribut entier :

Code:

---

1 2 3 4

Private mEntierMere As Integer   Public Sub tritureAttributs() End Sub

---

Je veux ensuite l'implémenter dans une classe contenant un attribut

cFille :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Implements cMere Private mEntierFille As Integer   Public Property Get EntierFille() As Integer EntierFille = mEntierFille End Property   Public Property Let EntierFille(valeur As Integer) mEntierFille = valeur End Property   Public Property Get cMere_EntierMere As Integer cMere_EntierMere = mEntierMere End Property   Public Property Let cMere_EntierMere(valeur As Integer) mEntierMere = valeur + 1 End Property   Private Sub cMere_tritureAttributs() Msgbox "Produit des attributs = " & (EntierMere * EntierFille) End Sub

---

Mon objectif est de pouvoir dans mon Main() créer un objet de type cFille, choisir les valeurs des attributs mEntierMere et mEntierFille, et appeler la méthode tritureAttributs de la classe cFille.
Dans le code suivant, pas moyen d'accéder à EntierMere ni d'utiliser tritureAttributs telle que définie dans ma classe-fille.

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Main()   Dim maFille As New cFille   maFille.EntierFille = 2 maFille.EntierMere = 3   maFille.tritureAttributs()   End Sub

---

Pouvez-vous m'aider à comprendre comment rendre les choses correctes ?
Je soupçonne qu'un

Code:

---

Private maMere As cMere

---

dans les attributs de la classe-fille devrait aider, mais ça ne me suffit pas pour en venir à bout ! :cry: