A.Private Sub List1_Click() Labe11. Camion=List1. ListIndex End Sub B.Private Sub List1_Click() Labe11. Name=List1. ListIndex End Sub C.Private Sub List1_Click() Labe11.Name=List1. Text End Sub D.Private Sub List1_Click() Labe11. Caption=List1. Text End Sub