Excel VBA 及vb6中 为Listbox列表框设置ItemData的方法

 注意VBA 及vb6中 列表框的新添加的项目的索引为 List1.NewIndex

以排序顺序将相应的项目填充列表框 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