List 2-6　COMオブジェクトを利用するサンプル

  1： Dim objComtest As Samplecom.comtest
  2： 
  3： Private Sub Form_Load()
  4：     'フォームのロード時にCOMオブジェクトを実体化する。
  5：     Set objComtest = CreateObject("Samplecom.comtest")
  6： End Sub
  7： 
  8： Private Sub Form_Unload(Cancel As Integer)
  9：     'フォームのアンロード時にCOMオブジェクトを解放する。
 10：     Set objComtest = Nothing
 11： End Sub
 12： 
 13： Private Sub SetButton_Click()
 14：     '［設定］ボタンが押されたときの処理を実装する。
 15：     objComtest.Value = SetText.Text
 16：     ' 結果を表示する。
 17：     ResultText.Text = objComtest.Value
 18： End Sub
 19： 
 20： Private Sub AddButton_Click()
 21：     '［加算］ボタンが押されたときの処理を実装する。
 22：     objComtest.AddValue AddText.Text
 23：     ' 結果を表示する。
 24：     ResultText.Text = objComtest.Value
 25： End Sub