ajouter image par image dans listview1

Bonjour,

j'ai un petit souci avec imagelist quand j'ajoute plusieurs une image avec openfiledialog dans listview1 sont toujours la mème image.

voici le code ajouter dans listview1:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 If TextBox1.TextLength > 0 AndAlso TextBox2.TextLength > 0 Then
            AddListview(TextBox1.Text, TextBox2.Text)
            ....etc
        End If
 
 Private Sub AddListview(ByVal MyImage As String, ByVal URL As String)
        Using IMG As Image = Image.FromFile(MyImage)
            If Not IMG Is Nothing Then
                ImgList.Images.Add(IMG)
            End If
            Dim Lvi As New ListViewItem("", ImgList.Images.Count - 1)
            Lvi.SubItems.Add(URL)
            Form1.ListView1.Items.Add(Lvi)
            Form1.ListView1.SmallImageList = ImgList
        End Using
    End Sub

voici en image :
Pièce jointe 472261

j'arrive pas ajouter image par image dans listview1. avez-vous une solution pour ajouter image par image dans listview1?
Merci,