haciendo esto:
Código:
cmbCategoria.AddItem "A1"
' cmbCategoria.ItemData(cmbCategoria.NewIndex) = 1
cmbCategoria.AddItem "A2"
' cmbCategoria.ItemData(cmbCategoria.NewIndex) = 2
cmbCategoria.AddItem "A3"
' cmbCategoria.ItemData(cmbCategoria.NewIndex) = 3
cmbCategoria.AddItem "A4"
' cmbCategoria.ItemData(cmbCategoria.NewIndex) = 4
cmbCategoria.AddItem "A5"
' cmbCategoria.ItemData(cmbCategoria.NewIndex) = 5
cmbCategoria.ListIndex = 4
Aparece seleccionado "A2"