operty from the enumerator:
      hR = enumProps.Next(1, propStg, fetched)
      If Not (FAILED(hR)) And (fetched &gt; 0) Then
         
         ' Get the value of the property
         propSpecifier.ID_or_LPWSTR = propStg.propid
         propSpecifier.ulKind = PRSPEC_PROPID        
         props.ReadMultiple 1, propSpecifier, Value

         ' Place the id, name and value of the property into 
         ' a VB class (note Value may be of unsupported type,
         ' in which case trying to access it throw