Option Explicit
Private WithEvents Image As MSForms.Image, Parent As EnsembleImages, Information
Public Sub Init(ByVal EIs As EnsembleImages, Img As MSForms.Image, ByVal FileName As String, ByVal Info)
Set Image = Img
Image.Picture = LoadPicture(FileName)
If IsObject(Info) Then Set Information = Info Else Information = Info
End Sub
Private Sub Image_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Parent.MéthodeRéservéeÀSupportImage Information
End Sub