Key Down Problem

[mouse88]

For some strange reason i am having problems with the following code:

Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown

        Select Case e.KeyCode

            Case Keys.Right

                Call CurrentBlock.Right()

            Case Keys.Left

                Call CurrentBlock.Left()

            Case Keys.Up

                Call CurrentBlock.Rotate()

            Case Keys.Down

                Call CurrentBlock.Down()

            Case Else

                Exit Sub

        End Select

    End Sub

Its not executing what it should be when the keys are presses. Ive put a breakpoint on it and its not even firing at all when they keys are pressed but i can work out why this is.

Appreciate any ideas.