Private Sub Form_Load()
  Me.KeyPreview = True
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  With Timer1
    Select Case KeyCode
      Case vbKeyDown
        ' Geschwindigkeit erhöhen
        If .Interval >= 60 Then .Interval = .Interval - 10
      Case vbKeyUp
        ' Geschwindigkeit drosseln
        If .Interval <= 1000 Then .Interval = .Interval + 10
    End Select
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de