[VB.NET] Pressione prolungata tasto

[calogeromancuso]

io avevo pensato a una cosa del genere:

    Private Sub Form1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Left Then
            Timer1.Enabled = True
        End If
    End Sub
    Private Sub Form1_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
        If e.KeyCode = Keys.Left Then
            Timer1.Enabled = False
        End If
    End Sub
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        RectangleShape1.Left -= 1
    End Sub 

quando il tasto viene premuto si attiva il timer ke fa spostare lo shape e quando il tasto viene rilasciato il timer si disattiva e lo shape si ferma. ma purtroppo non funziona...