Evénements MouseDown, MouseMove et MouseUp

Bonjour à tous,

Je cherche à exploiter les propriétés (Button As Integer, Shift As Integer,
X As Single, Y As Single) des événements MouseDown, MouseMove et MouseUp.


Mon problème est le suivant :

- Soit plusieurs (1 à n) contrôles image disposés sur un formulaire (leur
nombre varie trés fréquement).
- Chaque contrôle image réagi à l'évènement MouseDown pour afficher les
coordonnées X et Y du pointeur de la souris (oui... je sais c'est pas trés
passionant comme action, mais c'est juste un exemple pour modéliser mon
problème...).


Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
MsgBox "X = " & X & " ; Y = " & Y
End Sub

Private Sub Image2_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
MsgBox "X = " & X & " ; Y = " & Y
End Sub

Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
MsgBox "X = " & X & " ; Y = " & Y
End Sub
....
Etc... pour tous les contrôles jusqu'au contrôle n
.....
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
MsgBox "X = " & X & " ; Y = " & Y
End Sub


- Comment faire pour créer UNE procédure générique "BoutonSourisAppuyé" ,
valable pour tout contrôle image, du type :

Private Sub MonImageN_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
MsgBox "X = " & X & " ; Y = " & Y
End Sub


Mon orientation actuelle consiste à attribuer une procédure à la propriété
"OnMouseDown" lors de la création de chaque contrôle image (.OnMouseDown =
"=BoutonSourisAppuyé(""" & CtlImg.Name & """)") où CtlImg est le contrôle
image qui viens d'être créé par VBA).

Public Sub BoutonSourisAppuyé(NomContrôleImage as string)
Dim CtlImg as Controls

Set CtlImg = Controls( NomContrôleImage )

........
.........
End Sub

Ca marche trés bien pour des procédures n'utilisant pas les propriétés
(Button As Integer, Shift As Integer, X As Single, Y As Single)
Mais là c'est justement ce que je cherche à utiliser et je ne vois pas
comment récupérer ces propriétés...


Quelqu'un a une piste ?

Par avance merci,

@+
Kristof