使用listbox,在additem时可不可以显示一个名称，再给他付一个值，有没有什么办法？也就是我一点击其中一个项就得到相关付给他的ID！

Question

引用 Microsoft Scripting Runtime (SCRRUN.Dll):
在 Form 上放 List1、Combo1,并编写如下代码:Dim DicX As New Scripting.Dictionary
Private Sub Form_Load()
DicX.Add 0, "A"
DicX.Add 1, "B"
DicX.Add 2, "C"
DicX.Add 3, "D"List1.AddItem "甲", 0
List1.AddItem "乙", 1
List1.AddItem "丙", 2
List1.AddItem "丁", 3Combo1.AddItem "甲", 0
Combo1.AddItem "乙", 1
Combo1.AddItem "丙", 2
Combo1.AddItem "丁", 3
End Sub
Private Sub Combo1_Click()
MsgBox DicX.Item(Combo1.ListIndex)
End Sub
Private Sub List1_DblClick()
MsgBox DicX.Item(List1.ListIndex)
End Sub