Problème pour comprendre Implements

[Hokutoki]

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 !