一个combobox菜单，itemdata内容依次是0，1，2，3，4，5

Private Sub combo1_Click()
If combo1.Text <> "请选择 " Then
combo1.Enabled = False
End If
Label1.Caption = combo1.ItemData
End Sub


出错了。

怎样才能把combo1.itemdata里的数据读出来啊？

combo1.additem

Private Sub Combo1_Click()
MsgBox Combo1.Text
End Sub

Private Sub Form_Load()
Dim i As Long
For i = 1 To 10
Combo1.AddItem i
Next
End Sub

additem是添加啊。我都添加好了，在combo.list里依次是"a,b,c,d,e,f"combo.itemdata里依次是"0,1,2,3,4,5"，怎样选择“a”是label1.caption显示“0”...依次选择“e”时label1.caption显示“4”呢？
如果additem能做怎么弄啊？

Private Sub Combo1_Click()
MsgBox Combo1.ListIndex
End Sub

谢谢，解决了！