Comment remplir dinamiquement une listimage?

Réponse acceptée !
Bonsoir.
déjà met Set devant l'objet Iml.ListImages(I).Picture

Ensuite on choisit un dossier avec les images indexés de (0) to (xx)
Après, affecte le chemin de ton dossier a ton fillistbox


Private Sub Form_Load()

File1.Path = App.Path & "\mail"

End Sub


Private Sub Command1_Click()
Dim i%
Dim mlist As ListImage

On Error Resume Next

Iml.ListImages.Clear

For i = 0 To nombre - 1
    Set mlist = Iml.ListImages.Add(i + 1, "Pic" & i, LoadPicture(App.Path & "\mail\" & File1.List(i)))
   
    'si tu utilise un picturebox pour visualiser ton resultat.
    'Set P(i).Picture = Iml.ListImages(i + 1).Picture

   
Next i%

End Sub


@+
Philippe.