Private Sub Form_Load() Dim ImageList0 As ImageList Dim ImageCombo1 As ImageCombo Dim objNewItem As ComboItem Set ImageCombo1.ImageList = ImageList0 'here is the error' Set objNewItem = ImageCombo1.ComboItems.Add(1, , "Apricot", "Apricot") objNewItem.Indentation = 2 ImageCombo1.ComboItems("Apricot").Image = 1 ImageCombo1.ComboItems("Apricot").Image = "Apricot" ImageCombo1.ComboItems("Apricot").SelImage = "Apricot"
ImageList0
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)