Получить список индексов из отмеченного списка VB

Question

Я пытаюсь получить список индексов элементов, которые отмечены в моем списке, например. [х] один [] два [] три [х] четыре вернутся 1,4 Я бы тогда, как этот список отображается в окне списка Вот мой код:

`Dim indexes As Integer() 
indexes = CheckedListBox1.CheckedIndices.Cast(Of Integer).ToArray() 
For i = 1 To CheckedListBox1.CheckedItems.Count 
ListBox2.Items.Add(indexes.Cast(Of Integer)) 
Next` 

Ошибка является то, что, когда я запускаю его в окне список отображает строку, а не фактическое число сами по себе, то есть 1. Любая помощь приветствуется Спасибо

Answer 1

dim i as integer = 0 
For Each TempItem IN CheckedListBox1.CheckedItems 
    If Tempitem.checked then 
     ListBox1.Items.Add(i.tostring) 
    End If 
    i+=1 
Next