List 5-3　DoneフラグをセットするCOMコンポーネントの例

  1： Private strBuff As String
  2： Public Sub FuncA(str As Stirng)
  3：     Dim objContext As ObjectContext
  4：     strBuff = str
  5：     'ここでDoneフラグをTrueにセットするとする
  6：     '具体的には，ObjectContextオブジェクトのSetCompleteメソッド
  7：     'もしくはSetAbortメソッドを呼び出すが，詳細は後述
  8：     Set objContext = GetObjectContext()
  9：     objContext.SetComplete
 10：     Set objContext = Nothing
 11： End Sub
 12： Public Function FuncB() As String
 13：     FuncB = strBuff
 14： End Function