Recupero icone imagelist

[Teflo]

Qualcuno sa come recuperare le icone in un imagelist e in un command button e salvarle in una cartella per poterle riutilizzare?

[Mabi]

Potresti usare la funzione SavePicture:

Private Sub Command1_Click()
Dim Cont As Integer
Dim NomeFile As String

For Cont = 1 To 3
  NomeFile = "C:\Icona" & CStr(Cont) & ".ICO"
  SavePicture ImageList1.ListImages.Item(Cont).Picture, NomeFile
Next Cont

SavePicture Command2.Picture, "C:\Command.ICO"
End Sub

Se un'immagine grafica è stata caricata da un file nella proprietà
Picture di un oggetto in fase di progettazione o in fase di
esecuzione, e si tratta di una bitmap, un'icona, un metafile o un
enhanced metafile, verrà salvata con lo stesso formato del file
originale. Se si tratta di un file GIF o JPEG, verrà salvato come un
file bitmap.

[Teflo]

grazie 10000000 lo provo subito.
A buon rendere.