seleccion multiple listbox, como saber los seleccionados?

[oscuros]

Buenas, primero de todo gracias. Supongo que este tema ya está hablado pero no lo encuentro, tengo un listbox con multiselect y me gustaria meter en un array todos los elementos seleccionados, alguien sabe como puedo hacerlo?

Muchas gracias


Saludos

[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

[RootK]

Solo para complementar podría tambien quedar así

Código:

Dim result As Integer() = ListBox1.GetSelectedIndices()
            Dim vec As New List(Of String)
            For i As Integer = 0 To result.Length - 1
                vec.Add(ListBox1.Items.Item(i).Value)
            Next

Salu2