List 7-133　FormInputMsgフォームのBTN_OK_ClickプロシージャとBTN_CALCEL_Clickプロシージャ

---

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