ランタイム起動で抑制できるショートカット

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Debug.Print "Shift:" & Shift
    Debug.Print acCtrlMask

    Select Case Shift
    Case 0
        Select Case KeyCode
        Case vbKeyF1, vbKeyF11, vbKeyF12
            '以下のショートカットを無効にする
            '   F1  :ヘルプ ウィンドウの表示
            '   F11 :ナビゲーション ウィンドウの表示
            '   F12 :[名前を付けて保存] ダイアログ ボックスを開く
            KeyCode = 0

        End Select

    Case Shift And acCtrlMask
        Debug.Print "Ctrl + " & KeyCode

        Select Case KeyCode
        Case 188, 190, vbKeyN, vbKeyO
            '以下のショートカットを無効にする
            '   Ctrl + ,(188) :表示するビューを次のビューに切り替える
            '   Ctrl + .(190) :表示するビューを前のビューに切り替える
            '   Ctrl + N      :新しいデータベースを開く（[ファイル - 新規）
            '   Ctrl + O      :既存のデータベースを開く（[ファイル - 開く）
            KeyCode = 0

        End Select

    Case Shift And acShiftMask
        Debug.Print "Shift"

    Case Shift And acAltMask
        Select Case KeyCode
        Case vbKeyF11
            '以下のショートカットを無効にする
            '   Alt + F11 :VB ウィンドウの表示
            KeyCode = 0

        End Select

    Case Shift And (acCtrlMask Or acShiftMask)
        Debug.Print "Ctrl + Shift"

    Case Shift And (acCtrlMask Or acAltMask)
        Debug.Print "Ctrl + Alt"

    Case Shift And (acShiftMask Or acAltMask)
        Debug.Print "Shift + Alt"

    Case Shift And (acCtrlMask Or acShiftMask Or acAltMask)
        Debug.Print "Ctrl + Shift + Alt"

    End Select

End Sub