 And &amp;H7FFF&amp;) * &amp;H10000 + App.Minor
   
   ' Write out the image size:
   PropBag.WriteProperty "IconSizeX", IconSizeX, 16
   PropBag.WriteProperty "IconSizeY", IconSizeY, 16
   PropBag.WriteProperty "ColourDepth", ColourDepth, ILC_COLOR
   
   ' Write out the icons in the image list:
   bEmpty = True
   If (m_hIml &gt; 0) Then
      iCount = ImageCount
      If (iCount &gt; 0) Then
         ReDim b(0 To 16384&amp; * ImageCount) As Byte
      
         lHDC = CreateDCAsNull("DISPLAY", ByVal 0&am