Como seleccionar registro de un combo

[ReViJa]

Con esto ya puedes hacerte una idea:

Código:

Private Sub Form_Load()

Combo1.AddItem "Prueba"
Combo1.ItemData(Combo1.NewIndex) = 1
Combo1.AddItem "Dato2"
Combo1.ItemData(Combo1.NewIndex) = 4
Combo1.AddItem "Leer"
Combo1.ItemData(Combo1.NewIndex) = 3

End Sub

Private Sub Combo1_Click()
 MsgBox Combo1.ItemData(Combo1.ListIndex)
End Sub

Espero que te sirva.
Saludos