Private Sub UserForm_Initialize()
Me.ImageList1.ListImages.Add 1, "A", LoadPicture("C:\Users\STAPLE\Pictures\Img_01.jpg") '<-changer le path et nom fichier image
Me.ImageList1.ListImages.Add 2, "B", LoadPicture("C:\Users\STAPLE\Pictures\Img_02.jpg")
Me.ImageList1.ListImages.Add 3, "C", LoadPicture("C:\Users\STAPLE\Pictures\Img_03.jpg")
Me.Image1.Picture = ImageList1.ListImages(1).Picture
Label1.Picture = ImageList1.ListImages(2).Picture
End Sub
Private Sub Image1_Click()
Me.Image1.Picture = ImageList1.ListImages(3).Picture
Me.Repaint
End Sub
Private Sub Label1_Click()
Label1.Picture = ImageList1.ListImages(1).Picture
End Sub