' inserire delle immagini ad una imagecombo. Dim C As Long For C = 1 To ImageList1.ListImages.Count - 1 ImageCombo1.ComboItems.Add , , ImageList1.ListImages(C).Key, C, C, 1 Next Dim C As Long For C = 1 To ImageList1.ListImages.Count - 1 ImageCombo1.ComboItems.Add , , ImageList1.ListImages(C).Key, C, C, 1 Next |