Option Explicit
 
Private Declare Function GetAsyncKeyState Lib "user32.dll" ( _
     ByVal vKey As Long) As Integer
 
Private Sub Timer1_Timer()
    If GetAsyncKeyState(vbKeyLeft) Then
        'Code zum "Linksverschieben"
    ElseIf GetAsyncKeyState(vbKeyRight) Then
        'Code zum "Rechtsverschieben"
    End If
End Sub