Con questo codice riempio una imagelist.
Una volta riempita posso salvarla definitivamente, via codice?
In effetti alla riapertura del progetto vorrei trovarla già riempita...
Private Sub FILL_IMAGELIST()
Dim NOME As String, PATH As String
PATH = "C:\Lavori_Vb6\HOTEL\IMG\FLAG\FLAG\"
Me.ImageList1.ListImages.Clear
Dim FSO As New FileSystemObject
Dim FIL As FILE, SIGLA As String, P1 As Integer
For Each FIL In FSO.GetFolder(PATH).Files
NOME = FIL.Name
STATO = Replace(NOME, ".gif", "")
Me.ImageList1.ListImages.Add , STATO, LoadPicture(PATH & NOME)
Next
End Sub