ListIndex di una ListBox

VB6.GetItemString(List1, List1.SelectedIndex) Then


'Per non fare un ciclo for


For I = 0 To ListBox1.Items.Count - 1
If ListBox1.GetSelected(I) = True Then
...............................
End If
Next