mi rispondo da solo ma vorrei comunque un vostro parere sulla ottimizzazione velocita visualizzazione Immagini.

Private Sub Form_Load() ' conto i files nella Dir
Dim list_IMG As ListImage
File2.Path = CurDir & "pic\apz\"
conta = File2.ListCount

For i = 1 To conta ' ciclo e carico ListImage
Set li = ImageList1.ListImages.Add(i, "", LoadPicture(File2.Path & "\" & (i) & ".jpg"))
Next

Private Sub List1_Click()'passo indice a una funzione
Call IMG(List1.ListIndex)
end sub

Public Function img(indice As Integer)
Set Imgcaricate.Picture = ImageList1.ListImages(indice + 1).Picture
end function


Ora il problema e' che e' si piu' veloce nel visualizzare le immagini ,ma all'avvio dell'applicazione e' piu' lenta nel form Load.
Avevo pensato di mettere una specie di Preload ma non so proprio come fare.
Un aiutino per favore

GRAZIE