SavePicture

Private Sub SavePic()
'Salva l'icona del form sul disco

SavePicture Me.Icon, "c:\App.ico"
'Salva un'immagine conservata su una Imagelist su disco

SavePicture ImageList1.ListImages(1).Picture, _
"c:\FileOpen.ico"
End Sub