rops As IPropertyStorage)

   Set m_colProps = New Collection   
   Set m_props = props

   ' Nasty IPropertyStorage
   Dim hR As Long
   Dim fetched As Long
   Dim enumProps As IEnumSTATPROPSTG
   Dim propStg As STATPROPSTG
   Dim propSpecifier As PROPSPEC
   Dim sName As String
   Dim lSize As Long
   Dim Value As Variant
   Dim cProp As cProperty
   Dim lErr As Long
   
   ' Get the property enumerator:
   Set enumProps = m_props.Enum
   ' Add a reference to it:
   enumProps.AddRef
   Do
      ' Get a pr