すみません。意味不明な文章で理解できないと思います。
端的に言うと下記のコード何となくわかるのですが
 
ListBox1.SelectedIndices(0)の(0)の部分がいまいち理解できかねています。

 For i As Integer = 0 To ListBox1.SelectedIndices.Count - 1
            currentindex = ListBox1.SelectedIndices(0)