List 5-14　共有プロパティの利用例

  1： Public Property Get Counter() As Long
  2：     '共有プロパティにカウンタを作成する例
  3：     Dim objSharedPropGroupManager As SharedPropertyGroupManager
  4：     Dim objSharedPropGroup As SharedPropertyGroup
  5：     Dim objSharedProp As SharedProperty
  6：     Dim bExists As Boolean
  7：     
  8：     'SharedPropertyGroupManagerオブジェクトの実体化
  9：     Set objSharedPropGroupManager = CreateObject( _
                                          "MTxSpm.SharedPropertyGroupManager.1")
 10：     'CounterGroupという名前のSharedPropertyGroupオブジェクトを作る
 11：     Set objSharedPropGroup = objSharedPropGroupManager.CreatePropertyGroup _ 
                                       ("CounterGroup", LockSetGet, _ 
                                         Process, bExists)
 12：     'SharedPropertyGroupオブジェクトの配下にmyCounterという名前の
          'SharedPropertyオブジェクトを作成
 13：     Set objSharedProp = objSharedPropGroup.CreateProperty( _
                                  "myCounter", bExists)
 14：     'もし新規作成されたものであれば，0に初期化
 15：     '（ただし，実際にはSharedPropertyオブジェクトが新規作成されたときに
          '0に初期化されるから不要）
 16：     If Not bExists Then
 17：         objSharedProp.Value = 0
 18：     End If
 19：     'カウンタをインクリメント
 20：     objSharedProp.Value = objSharedProp.Value + 1
 21：     'その値を戻り値とする
 22：     Counter = objSharedProp.Value
 23：     '利用していた共有プロパティ関連のオブジェクトを解放
 24：     Set objSharedProp = Nothing
 25：     Set objSharedPropGroup = Nothing
 26：     Set objSharedPropGroupManager = Nothing
 27： End Property