Private Sub Cb1_Change()
If Cb1.Value <> "0" Then
Image1.Picture = LoadPicture("c:\MesImages\MonImage" & Cb1.Value & ".jpg")
End If
End Sub
Private Sub ComboBox1_Change()
Visu.Picture = Controls("Image" & ComboBox1.Value).Picture
End Sub
Private Sub UserForm_Initialize()
ComboBox1.List = [{0,1,2}]
End Sub