       PropBag.WriteProperty "Size", lStart
            PropBag.WriteProperty "Images", b
            PropBag.WriteProperty "Version", lVersion
            Erase b
            bEmpty = False
         End If
      End If
   End If
      
   If (bEmpty) Then
      PropBag.WriteProperty "Size", 0, 0
      PropBag.WriteProperty "Images", 0, 0
      PropBag.WriteProperty "KeyCount", 0, 0
      PropBag.WriteProperty "Keys", "", ""
   Else
      ' Write out the keys:
      PropBag.WriteProperty "KeyCount", ImageCo