Ciao luisa227,
di seguito posto un esempio di come inserire un'icona nel controllo ImageList:
codice:
'In un oggetto ListImage, è possibile caricare sia immagini bitmap,
'sia icone. Per caricare un'immagine bitmap o un'icona,
'è necessario utilizzare la funzione LoadPicture nel modo seguente:
'Set imgX = ImageList1.ListImages.Add(, , LoadPicture("nome file"))
Private Sub Command1_Click()
    Dim imgX As ListImage
    Dim I As Integer
   
    Set imgX = ImageList1.ListImages.Add(, , _
    LoadPicture("D:\Programmi\ICONEVB\A-icons\acrobat.ico", vbLPLarge, vbLPColor))
    imgX.Key = "Acrobat"   'assegna la proprietà Key

End Sub