by Sukhen Das (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 5th June 2008
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Use of ImageCombo control
API Declarations
Dim item As String
Dim i As Integer
Dim st(4) As String
VBcoders
st(0) = "Red"
st(1) = "Green"
st(2) = "Blue"
st(3) = "Pink"
st(4) = "Violet"
For i = 0 To 4
objNewItem = ImageCombo1.ComboItems.Add(i + 1, "r" & i, st(i))
ImageCombo1.ToolTipText = st(i)
ImageCombo1.ComboItems("r" & i).Image = i + 1
Next
End Sub