Implements PropertyBag
 
Private Property Let PropertyBag_Contents(ByVal RHS As Variant)
  Dim oBag As New PropertyBag
  If IsNull(RHS) Then Exit Property
  oBag.Contents = RHS
  dMeter = oBag.ReadProperty("Meter", 0)
  Set oBag = Nothing
End Property
 
Private Property Get PropertyBag_Contents() As Variant
  Dim oBag As New PropertyBag
  oBag.WriteProperty "Meter", dMeter, 0
  PropertyBag_Contents = oBag.Contents
  Set oBag = Nothing
End Property

 oBag.Contents = RHS

  oBag.WriteProperty "Meter", dMeter, 0