Using VB6.0, How to get itemdata of a selected item in a CheckedListBox?

Using VB6.0, How to get itemdata of a selected item in a 开发者_如何转开发CheckedListBox?

---

Oh, I got it....

Dim i as integer 
If myList.Selected(i)  then
    i = chklstCar.ItemData(i)
End if

---

Dim ItemData as String
ItemData = myList.ItemData(myList.ListIndex)