List 7-2　FormMainフォームのMDIForm_QueryUnloadイベント

  1： Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  2：     ' フォームが閉じられようとしているときの処理
  3：     
  4：     If MsgBox("アプリケーションを終了しますか", vbYesNo Or vbDefaultButton2, _
                    "アプリケーションの終了") = vbNo Then
  5：         ' アプリケーションを終了しない
  6：         Cancel = 1
  7：     End If
  8： End Sub