Key Up event wont run

[ad4m101]

Hey, am making a tetris game in VB its all working now apart from the keyboard events to move and rotate the blocks, which is the most important part 0_0

I have this to deal with keyboard input. But it dose nothing whats wrong with this code?

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

  Select Case e.KeyCode

            Case Keys.Down
                Me.player1.MoveDown()
            Case Keys.Left
                Me.player1.MoveLeft()
            Case Keys.Right
                Me.player1.MoveRight()
            Case Keys.P
                Me.player1.IsPaused = Not Me.player1.IsPaused
            Case Keys.Up
                Me.player1.ToggleOrientation()
        End Select
    End Sub

Thanks!