Envoyer plusieurs items d'un listebox

    Private Sub transfert(ByVal l1 As ListBox, ByVal l2 As ListBox)
        ' transfert de l'élément sélectionné de la liste 1 vers la liste l2

Dim i as Integer 
for i=0 to i+31 

        If l1.SelectedIndex = -1 Then Return
        ' ajout dans l2

        l2.Items.Add(l1.SelectedItem.ToString())

     Next i 



    End Sub