Private Sub Form_Load() '----- Déclaration des variables locales Dim Ind As Long '----- Remplissage du contrôle listbox For Ind = 1 To 10 List1.AddItem Ind Next End Sub Private Sub Command1_Click() '----- Déclaration des variables locales Dim Ind As Long '----- Affichage des valeurs sélectionnées Picture1.Cls For Ind = 0 To List1.ListCount - 1 If List1.Selected(Ind) = True Then Picture1.Print List1.List(Ind) End If Next Ind End Sub