获得listbox中项目内容的问题

For i = 0 To listCarID.ListCount - 1
            if listCarID.Text = rsTemp.Fields("CarID") Then
               listCarID.Selected(i) = True
               listCarID_Click ‘在其他文本框中显示出选定项目的其他信息
               Exit For
            End If
Next如果listCarID中有项目内容＝CarID的话，选定该项但用上面的语句没办法获得项目内容
因为只有指定了listCarID.ListIndex = i，再用listCarID.Text 才能获得该项内容，但listCarID.ListIndex = i语句触发了listCarID_Click 事件For i = 0 To listCarID.ListCount - 1
              listCarID.ListIndex = i   ’\\增加
            if listCarID.Text = rsTemp.Fields("CarID") Then
               listCarID.Selected(i) = True
               listCarID_Click ‘在其他文本框中显示出选定项目的其他信息
               Exit For
            End If
Next   增加listCarID.ListIndex = i 后显示的总是列表的最后一项很多前辈说的listbox.item(i).value  listbox.getitemtext(listbox.item(i))都没办法获得项目内容
有什么方法可以做到这一点？
谢谢！