List 7-106　FormStockFilterフォームのBTN_OK_Clickプロシージャ，BTN_CANCEL_Clickプロシージャ

---

  1： Private Sub BTN_CANCEL_Click()
  2：     ' ［キャンセル］ボタンが押されたときの処理
  3：     OkFlag = False
  4：     Me.Hide
  5： End Sub
  6： 
  7： Private Sub BTN_OK_Click()
  8：     ' ［OK］ボタンが押されたときの処理
  9：     OkFlag = True
 10：     Me.Hide
 11： End Sub