可以使用ItemData属性。
这个例子用员工的名字填充 ListBox 控件,并用员工的代号填充 ItemData 属性数组,并用 NewIndex 属性使代号与排序列表同步。当用户做选择时,Label 控件显示选项的名字和代号。要试用此例,r把代码粘贴到包含 ListBox 和 Label 的窗体的声明部分。设置 ListBox 的 Sorted 属性为 True,然后按 F5 键,并单击 ListBox。Private Sub Form_Load ()
   ' 以排序顺序将相应的项目填充t List1 和 ItemData 数组.
   List1.AddItem "Judy Phelps"
   List1.ItemData(List1.NewIndex) = 42310
   List1.AddItem "Chien Lieu"
   List1.ItemData(List1.NewIndex) = 52855
   List1.AddItem "Mauro Sorrento"
   List1.ItemData(List1.NewIndex) = 64932
   List1.AddItem "Cynthia Bennet"
   List1.ItemData(List1.NewIndex) = 39227
End Sub