Bonjour tt le monde !

Voilà j'vous explique mon problème. J'aimerais qu'à la place d'une string, je mette une image dans un ListView. Voila mon code.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub SauveInfoUtil(ObjetListe As Object, _
                      ByVal Elément As clsUnElément)
    Dim ItemX   As ListItem
    Dim Cpte As Integer
    Dim mObjet As Object
    
    'Ajoute un élément à un objet (ListBox, ComboBox ou ListView)
    '************************************************************
    With Elément
    
        If TypeOf ObjetListe Is ListView Then
            'L'objet est une ListView, on ajoute le nom de l'élément
            '*******************************************************
           
            If .Variable > 0 Then
             Set ItemX = ObjetListe.ListItems.Add(, _
                                                 "K" + Format(Elément.Numéro), _
                                                 Elément.Nom + " (" + Elément.NomModule + ")")
                                                 
            .StyleObjet = .StyleObjet / 2
        For Cpte = 16 To 1 Step -1
            
         If ((.StyleObjet) - 2 ^ (Cpte - 1)) >= 0 Then
            ItemX.SubItems(Cpte) = LoadRessourceString(IDOui)             .StyleObjet = .StyleObjet - 2 ^ (Cpte - 1)
         Else
            ItemX.SubItems(Cpte) = LoadRessourceString(IDNon)
            .StyleObjet = .StyleObjet
         End If
         
        Next Cpte
        
      End If
    End If
      
   End With
End Sub
J'voudrais qu'à la place de LoadRessourceString(IDOui), je charge une image (par exemple une croix verte...)

Voila si qq'un sait comment faire...

Merci++