List 2-1　作成するCOMコンポーネントの利用例

  1： 'COMオブジェクトを格納する変数を宣言する。
  2： Dim obj As Samplecom.comtest
  3： 'オブジェクトを実体化する。
  4： Set obj = CreateObject("Samplecom.comtest")
  5： '値を0に設定する。
  6： obj.Value = 0
  7： '値に5を加える。
  8： obj.AddValue 5
  9： '値に10を加える。
 10： obj.AddValue 10
 11： '値を表示する（0+5+10=15と表示される）。
 12： MsgBox "値=" & obj.Value
 13： 'オブジェクトを解放する。
 14： Set obj = Nothing