Hello,
I'm currently struggling to have images show up on an Image Combobox. The code I'm using hasn't given me any errors so I'm not sure what else I should do?
Private Sub UserForm_Initialize()
With Me.ImageList3.ListImages
.Add , "img1", LoadPicture("C:\Users\main\Desktop\Chains\882.jpg")
.Add , "img2", LoadPicture("C:\Users\main\Desktop\Chains\1001.jpg")
.Add , "img3", LoadPicture("C:\Users\main\Desktop\Chains\1060.jpg")
.Add , "img4", LoadPicture("C:\Users\main\Desktop\Chains\1505.jpg")
.Add , "img5", LoadPicture("C:\Users\main\Desktop\Chains\8505.jpg")
End With
With Me.ImageCombo1
.ImageList = ImageList3
.ComboItems.Add , , "882", img1
.ComboItems.Add , , "1001", img2
.ComboItems.Add , , "1060", img3
.ComboItems.Add , , "1505", img4
.ComboItems.Add , , "8505", img5
End With
End Sub
Bookmarks