ControlsMenu - Timer

Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

    Private Sub ControlesMenu_Tick(sender As Object, e As EventArgs) Handles ControlesMenu.Tick
        Try
            If GetAsyncKeyState(Keys.Down) = -32767 Then
                If Label1.ForeColor = Color.Red Then
                    Label2.ForeColor = Color.Red
                    Label1.ForeColor = Color.Black
                    Exit Sub
                End If
                If Label2.ForeColor = Color.Red Then
                    Label3.ForeColor = Color.Red
                    Label2.ForeColor = Color.Black
                    Exit Sub
                End If
                If Label3.ForeColor = Color.Red Then
                    Label1.ForeColor = Color.Red
                    Label3.ForeColor = Color.Black
                    Exit Sub
                End If
            End If
            If GetAsyncKeyState(Keys.Up) = -32767 Then
                If Label1.ForeColor = Color.Red Then
                    Label3.ForeColor = Color.Red
                    Label1.ForeColor = Color.Black
                    Exit Sub
                End If
                If Label2.ForeColor = Color.Red Then
                    Label1.ForeColor = Color.Red
                    Label2.ForeColor = Color.Black
                    Exit Sub
                End If
                If Label3.ForeColor = Color.Red Then
                    Label2.ForeColor = Color.Red
                    Label3.ForeColor = Color.Black
                    Exit Sub
                End If
            End If
            If GetAsyncKeyState(Keys.Right) = -32767 Then
                If Label1.ForeColor = Color.Red Then
                    Label4.Text = "[Seleccionado]"
                    Label4.ForeColor = Color.Green
                    ContadorItems.Text += 1
                    Exit Sub
                End If
                If Label2.ForeColor = Color.Red Then
                    Label5.Text = "[Seleccionado]"
                    Label5.ForeColor = Color.Green
                    ContadorItems.Text += 1
                    Exit Sub
                End If
                If Label3.ForeColor = Color.Red Then
                    Label6.Text = "[Seleccionado]"
                    Label6.ForeColor = Color.Green
                    ContadorItems.Text += 1
                    Exit Sub
                End If
            End If
            If GetAsyncKeyState(Keys.Left) = -32767 Then
                If Label1.ForeColor = Color.Red Then
                    Label4.Text = "[Sin seleccionar]"
                    Label4.ForeColor = Color.Black
                    ContadorItems.Text -= 1
                    Exit Sub
                End If
                If Label2.ForeColor = Color.Red Then
                    Label5.Text = "[Sin seleccionar]"
                    Label5.ForeColor = Color.Black
                    ContadorItems.Text -= 1
                    Exit Sub
                End If
                If Label3.ForeColor = Color.Red Then
                    Label6.Text = "[Sin seleccionar]"
                    Label6.ForeColor = Color.Black
                    ContadorItems.Text -= 1
                    Exit Sub
                End If
            End If
        Catch ex As Exception

        End Try
    End Sub
End Class