C# と VB.NET の質問掲示板

VB.NETを使っていて、矢印キーで操作したいと考えています。

以下のコードで上下右左に関してはうまくいきました。
あと、矢印キーを同時押しした時に斜め方向にも操作できるようにしたいのですが、

            Case Keys.Up Or Keys.Left

とやってみても、うまくいきません。
一体どのように改良すれば良いでしょうか？




    '矢印キーを無効化する
    Private Sub CursorMovementKeys(ByVal sender As Object, ByVal e As KeyEventArgs)

        Select Case e.KeyCode
            Case Keys.Up
                'コード
                e.Handled = True
            Case Keys.Left
                'コード
                e.Handled = True

            Case Keys.Up Or Keys.Left
                'コード
                e.Handled = True

            Case Keys.Right
                'コード
                e.Handled = True
            Case Keys.Down
                'コード
                e.Handled = True
        End Select
    End Sub

修飾キー(Shift, Ctrl, Alt)以外の通常キー同士の同時押しを、
WinFormはライブラリとしてはサポートしていません。
Keys列挙体での通常キー同士のOrは不正な値になります。
敢えて書くなら、次のようなコードになるでしょうか。

' 同時押し対象のキーが多いならDictionaryで管理する
Dim m_Up As Boolean, m_Down As Boolean

Sub Form1_KeyDown(...) As Me.KeyDown
  SetKeyState(e.Keycode, True)
  ' 以後、必要な処理
End Sub

Sub Form1_KeyUp(...) As Me.KeyUp
  SetKeyState(e.KeyCode, False)
End Sub

Sub SetKeyState(ByVal key As Keys, ByVal holding As Boolean)
  Select Case e.KeyCode
    Case Keys.Up
      Me.m_Up = holding
    Case Keys.Down
      Me.m_Down = holding
  End Select
End Sub

ちなみに、入力開始時点では、必ずどちらかのキーが先行します。
例え完全に同じタイミングで2つのキーを押下したとしても、
KeyDownは先にどちらかのキーで発生し、その後残りのキーで発生します。