List 5-5　2つのメソッドをもつCOMコンポーネント

  1： Public Sub funcA()
  2：     '何らかの処理。この処理はfuncBを呼び出すまえにしなければならないとする。
  3： End Sub
  4： Public Sub funcB()
  5：     '何らかの処理
  6：     'ここでコミットするとする
  7：     Dim objContext As ObjectContext
  8：     Set objContext = GetObjectContext()
  9：     objContext.SetComplete
 10：     Set objContext = Nothing
 11： End Sub