Private Sub ComboBox1_Change()
On Error Resume Next
If ComboBox1.ListIndex = 0 Then
Image1.Picture = LoadPicture("C:\Users\Max\Desktop\User_Dprapeaux\ & ComboBox1 & ".Gif")
Image2.Picture = LoadPicture("C:\Users\Max\Desktop\User_Dprapeaux\ & ComboBox1 & ".Gif")
Image3.Picture = LoadPicture("C:\Users\Max\Desktop\User_Dprapeaux\ & ComboBox1 & ".Gif")
Image4.Picture = LoadPicture("C:\Users\Max\Desktop\User_Dprapeaux\ & ComboBox1 & ".Gif")
End If
On Error GoTo 0
End Sub