
   End If
   Err.Raise lErr, App.EXEName &amp; ".vbalImageList", sErr
   Exit Function
End Function
Public Function LoadFromFile(ByVal sFile As String) As Boolean
Attribute LoadFromFile.VB_Description = "Loads a set of  images from a file
 previously created with the SaveToFile method."
Dim b() As Byte
Dim iFile As Integer
Dim lSize As Long
Dim lStart As Long
Dim lItemSize As Long
Dim hIcon As Long
Dim lHDC As Long
Dim iKeySize As Long
Dim sKeys As String
Dim iOrigCount As Long
Dim lVersion As Long

On Err