 lStart &lt; lSize
            If (DeSerialiseIcon(lHDC, hIcon, b(), lStart, lItemSize, lVersion))
             Then
               ImageList_AddIcon m_hIml, hIcon
               DestroyIcon hIcon
            End If
            lStart = lStart + lItemSize
         Loop
         DeleteDC lHDC
         Erase b
         
         ReDim m_sKey(0 To ImageCount - 1) As String
         lKeyCount = PropBag.ReadProperty("KeyCount", 0)
         sKeys = PropBag.ReadProperty("Keys", "")
         pDeserialiseKeys 0, sKe