   IconSizeY = PropBag.ReadProperty("IconSizeY", 16)
   ColourDepth = PropBag.ReadProperty("ColourDepth", ILC_COLOR)
   lVersion = PropBag.ReadProperty("Version", 0)
   
   ' Create the image list:
   If Create() Then
      ' Read the image list pictures:
      lSize = PropBag.ReadProperty("Size", 0)
      If (lSize &gt; 0) Then
         Debug.Print "ReadImages"
         b() = PropBag.ReadProperty("Images")
         lHDC = CreateDCAsNull("DISPLAY", ByVal 0&amp;, ByVal 0&amp;, ByVal 0&amp;)
         Do While