Erreur module de classe

Bonjour,

j'essaye de modifier le source ci-dessous, =E9crit par Christophe
Campain, pour l'adapter aux controles 'image' mais quand je remplace :
--> Public WithEvents LabelGroup As Label
par Public WithEvents ImageGroup As Image

j'ai une erreur de compilation : type d=E9fini par l'utilisateur
attendu, et non un projet ,-(((

Merci d'avance pour votre =E9clairage
Cordialement,

LeGoldo
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D d=E9but =
citation
1- Tu cr=E9=E9 un module de classe que tu nomes ClasseEtiquette.

2- Tu colles les lignes suivantes dans ce module :
'----------------------------------------------------------
Public WithEvents LabelGroup As Label
Private Sub LabelGroup_Click()
MsgBox LabelGroup.Name ' (Mets ta proc=E9dure)
End Sub
'----------------------------------------------------------
3- Dans le code de ton formulaire tu tapes ceci :
'----------------------------------------------------------
Dim LabelBoxes() As New ClasseEtiquette


Private Sub Form_Open(Cancel As Integer)
Dim LabelBoxesCount As Integer
Dim Ctl As Control


LabelBoxesCount =3D 0
For Each Ctl In Me.Controls
If Ctl.ControlType =3D acLabel Then
LabelBoxesCount =3D LabelBoxesCount + 1
Ctl.OnClick =3D "[Proc=E9dure =E9v=E9nementielle]"
ReDim Preserve LabelBoxes(1 To LabelBoxesCount)
Set LabelBoxes(LabelBoxesCount).LabelGroup =3D Ctl
End If
Next Ctl
End Sub
'----------------------------------------------------------


Tu peux reprendre cette m=E9thode pour d'autres types de contr=F4les (J'ai
test=E9
avec les contr=F4les image et =E7a marche)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D