I have been going round in circles trying to use navigation keys in an application I am writing. Simply put, I would like to be able to execute certain code when a navigation key is pressed. Any help would be greatly appreciated!

Not sure how efficient this code is, but it works...


Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        Dim keyInformation As KeyEventArgs = e
        Select Case keyInformation.KeyCode()
            Case Keys.Left
                lblMessage.Text = "Left"
            Case Keys.Right
                lblMessage.Text = "Right"
            Case Keys.Up
                lblMessage.Text = "Up"
            Case Keys.Down
                lblMessage.Text = "Down"
            Case Else
                lblMessage.Text = ""
        End Select
    End Sub