Private Sub CBX_1_Change()
Me.IM_1.Picture = LoadPicture("")
If Me.CBX_1.ListIndex <> -1 Then
On Error Resume Next
Me.IM_1.Picture = LoadPicture(ThisWorkbook.Path & "\" & Me.CBX_1.Value & ".jpg")
On Error GoTo 0
End If
End Sub
Private Sub UserForm_Initialize()
Me.CBX_1.List = Sheets("BASE").Range("B2:B" & Sheets("BASE").Range("B65536").End(xlUp).Row).Value
End Sub