Cacher is the code snippet organizer for pro developers

<comboBox 
 id="myComboBox" 
 label="My ComboBox:"
 getItemImage="CallbackCBGetItemImage" 
 imageMso="PictureEffectsGlowGallery" 
 onChange="MyComboBoxCallbackOnChange" 
 sizeString= "WWWWWWWWWWWWW">
</comboBox>

Sub CallbackCBGetItemImage(control As IRibbonControl, _
                            index As Integer, _
                            ByRef image)
    Select Case control.ID
        Case "myComboBox"
            Set image = LoadPicture(getAppPath & _
                        "Pictures\" & _
                        Format(index, "00") & ".JPG")
       'Case else 'Или – ImageMso 
           image = "HappyFace" 
    End Select
End Sub