seleccion multiple listbox, como saber los seleccionados?

[oscuros]

SOLUCIONADO


Dim n As Integer = lstcontadors.Items.Count - 1
Dim i As Integer = 0
Dim j As Integer = 0
Dim vec(n) As String

While i <= n
If lstcontadors.GetSelected(i) Then
vec(j) = lstcontadors.Items.Item(i)
j += 1
End If
i += 1
End While


Gracias igualmente