 = String$(iKeySize, 255)
            Get #iFile, , sKeys
         End If
      End If
      Close #iFile
         
      iOrigCount = ImageCount
      lHDC = CreateDCAsNull("DISPLAY", ByVal 0&amp;, ByVal 0&amp;, ByVal 0&amp;)
      Do While lStart &lt; lSize
         DeSerialiseIcon lHDC, hIcon, b(), lStart, lItemSize, lVersion
         ImageList_AddIcon m_hIml, hIcon
         DestroyIcon hIcon
         lStart = lStart + lItemSize
      Loop
      DeleteDC lHDC
      
      pEnsureKeys
      pDeserialiseKe