Code: Select all
Private Sub FILL_IMAGELIST()
Dim NOME As String, PATH As String
PATH = "C:\Lavori_Vb6\HOTEL\IMG\REPARTI\"
Dim FSO As New FileSystemObject
Dim FIL As FILE
Me.ImageList1.ListImages.Clear
For Each FIL In FSO.GetFolder(PATH).Files
NOME = FIL.Name
STATO = Replace(NOME, ".jpg", "")
Me.ImageList1.ListImages.Add , STATO, LoadPicture(PATH & NOME)
Next
End Sub
For example in dir i can have:
1-CAFFETTERIA.jpg
I can assign the index 1 when add image?