[VB]How to get index from combo box

VB中组合框和列表框有时候会让你很头疼，因为刚接触的人很难分辨怎么才能取到相应的值还是索引。现在归纳下，

在combo1中添加项目
with combo1
    .additem "001"
    .additem "002"
    .additem "003"
end with

删除鼠标指定的内容:
combo1.removeitem combo1.listindex

取鼠标指定项目的索引:
combo1.listindex

去鼠标指定项目内容：
combo1.list(i)或者combo1.list(listindex)
i:代表索引

有时候我们想利用组合框来实现下面的这种功能：
在选择了莫一项目的时候，我们显示的是和这项目对应的数字或者是内容
在添加组合框内容的时候我们只要用到itemdata这个属性就可以解决，在VB2008中，itemdata已经是一个函数了，
eg:
   with combo1
     .additem"001"
     .itemdata (0) = 第一名
     .additem "002"
     .itemdata (1) = 第二名
     .additem "003"
     .itemdata (3) = 第三名
end with
这样当你要选择的话这样就OK了
text1.text = "恭喜您是" & combo1.itemdata(combo1.listindex)
text1.text = "恭喜您是" & combo1.list(combo1.listindex)

还可以这样写：
with combo1
     .additem "11"
     .itemdata (.newindex) = 第一名
     .additem "12"
     .itemdata (.newindex) = 第二名
     .additem "13"
     .itemdata (.newindex) = 第三名
end with
text1.text = "恭喜您是" & combo1.list(combo1.listindex)
这样就可以得到取相应的序号得到相应的成绩

这里newindex就是与最近的添加项目对应的索引号