Transmettre plusieurs éléments entre 2 Listbox

Bonjour a tous

J'ai 2 ListBox:
- Parcours Disponibles
- Parcours Réservables

J'arrive a tranférer un par un élément enter chaque ListBox, mais dés qu'il y en a plusieurs, je n'y arrive plus.

J'ai testé 2 possibilités.Les 2 ne fonctionne pas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
   Sub AjouterPlusieursParcours(ByVal sender As Object, ByVal e As System.EventArgs)
 
        Dim i As Integer
 
 
        If ListParcoursReservables.Items.Count > 0 Then
 
            For i = 0 To ListParcoursDispo.Items.Count - 1
 
                Dim Parcours As String
                Parcours = ListParcoursDispo.SelectedItem.Value(i)
                ListParcoursReservables.Items.Add(Parcours)
 
            Next i
 
        End If
 
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub AjouterPlusieursParcours(ByVal sender As Object, ByVal e As System.EventArgs)
 
        Dim i As Integer
 
        For i = 0 To ListParcoursDispo.Items.Count - 1
 
            If ListParcoursDispo.Items(i).Selected Then
 
                ListParcoursReservables.Items.Add(ListParcoursDispo.Items(i))
 
            End If
 
        Next i
 
 
    End Sub

Des idées?
Merdi d'avance