[VB.NET] Problema Key Down su Form con Tasti Frecce

[jackk87]

Buonasera a tutti,
ho settato la proprieta keypreview del form = true
con questo codice intercetto il keydown sul form:

Private Sub frmMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Select Case e.KeyCode
            Case Keys.Up
                btSu.Image = My.Resources.frecciasu_P
            Case Keys.Down
                btGiu.Image = My.Resources.frecciagiu_P
            Case Keys.Left
                btSx.Image = My.Resources.frecciasx_P
            Case Keys.Right
                btDx.Image = My.Resources.frecciadx_P
            Case Keys.R
                MsgBox("Ciao")
        End Select
    End Sub

il codice funziona alla perfezione cioè se premo il tasto r mi visualizza ciao ma il tutto non funziona solo con i tasti delle frecce perchè se sul form utilizzo i tasti freccia mi sposta il tab cioè mi seleziona i controllo quindi fanno la stessa funzione del tasto tab di conseguenza non eseguono quello che gli imposto nel keydown come posso risolvere il problema?
grazie in anticipo a tutti

[MarcoGG]

Ovviamente funziona solo se nessun controllo sul Form ha lo stato attivo :

        Select Case e.KeyCode

            Case Keys.Up
                MsgBox("Freccia SU")
                e.Handled = True

            Case Keys.Down
                MsgBox("Freccia GIU")
                e.Handled = True

            Case Keys.Left
                MsgBox("Freccia SN")
                e.Handled = True

            Case Keys.Right
                MsgBox("Freccia DX")
                e.Handled = True

        End Select

[jackk87]

grazie Marco

[jackk87]

Ciao Marco,
un'altra domanda per esempio ho questo codice:

Select Case e.KeyCode

            Case Keys.I
                MsgBox("Freccia SU")
                e.Handled = True

            Case Keys.K
                MsgBox("Freccia GIU")
                e.Handled = True

            Case Keys.J
                MsgBox("Freccia SN")
                e.Handled = True

            Case Keys.L
                MsgBox("Freccia DX")
                e.Handled = True

        End Select

come posso controllare che deve essere premuto un tasto alla volta?
per esempio se io tengo premuto il tasto I mi visualizza su e mentre ce l'ho premuto voglio che se schiacchio il tasto K non mi deve visualizzare giu perchè già tengo premuto un tasto.
Cioè vorrei che questo select nel keydown viene eseguito un tasto alla volta se ne ho premuto uno devo aspettare che lo lascio per far partire il comando di un'altro.
Spero di essere stato chiaro grazieeeeeeeeee

[jackk87]

ho risolto inserendo qualche if