    Next iImgIndex
                  SelectObject lHDC, lhBmpOld
                  Set ImagePictureStrip = BitmapToPicture(lhBmp)
               Else
                  DeleteObject lhBmp
               End If
            End If
            DeleteDC lHDC
         End If
      End If
   End If
   
End Property

Public Function SaveToFile(ByVal sFile As String) As Boolean
Attribute SaveToFile.VB_Description = "Saves the current image list image data
 to a file. This can be read in at another point with LoadFro