SaveImageList

Private Sub SaveImageList(ImageList As ImageList, ByVal FileName As String)
Dim pb As New PropertyBag
Dim varTemp As Variant
Dim handle As Long

' Serialize the ImageList control

pb.WriteProperty "IMG", ImageList.object
varTemp = pb.Contents

' If the file exists, delete it

If Len(Dir$(FileName)) Then Kill FileName

' save the property bag to a file

handle = FreeFile
Open FileName For Binary As #handle
Put #handle, , varTemp
Close #handle
End Sub