Imagecombos

[jericosoft]

Usa el combobox y con combobox1.ItemData(combobox1.NewIndex)
puedes guardar tus "TAGS" o hacer referencia al Item seleccionado


Mi ejemplo :


Private Sub LlenaCombos()
For T = 1 To .RecordCount
comboalma.AddItem (.Fields("ALMACENNOM"))
comboalma.ItemData(comboalma.NewIndex) = (.Fields("IdALMACEN"))
.MoveNext
Next T
End Sub



Private Sub comboalma_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtCodigo = comboalma.ItemData(comboalma.ListIndex)
TxtNombre = comboalma
End If
End Sub

Espero te sirva , Saludos