Visual Basic tiene un control llamado ImageCombo en el cual se pueden insertar imágenes a través de un Control ImageList.
Ambos controles se encuentran en el componente "Microsoft Windows Common Controls 6.0" (MSCOMCTL.OCX)
En el control ImageList cargas 4 imágenes (propiedad Index del 1 al 4) y pegas éste código:
Código:
Private Sub Form_Load()
ImageCombo1.ImageList = ImageList1
ImageCombo1.ComboItems.Add , , "Corazón", 1, 1, 1
ImageCombo1.ComboItems.Add , , "Espada", 2, 2, 1
ImageCombo1.ComboItems.Add , , "Diamante", 3, 3, 1
ImageCombo1.ComboItems.Add , , "Trébol", 4, 4, 1
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
' ..... "4", "5", etc
Combo1.AddItem "T"
Combo1.AddItem "J"
ImageCombo1.selectedItem = ImageCombo1.ComboItems(1)
Combo1.ListIndex = 0
End Sub
y para pasar el cotrol alsegundo ComboBox (éste es un combo normal):
Código:
Private Sub ImageCombo1_Click()
Combo1.SetFocus
End Sub
Con éste código solamente le pasaría el foco al ComboBox, pero no lo desplegaría. Si lo que quieres es esto último, puedes usar la API SendMessage.