Private Type Richtung
    Rechts As Boolean
    Links As Boolean
End Type
Dim AktuelleRichtung As Richtung
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyRight Then AktuelleRichtung.Rechts = True
    If KeyCode = vbKeyLeft Then AktuelleRichtung.Links = True
End Sub
 
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyRight Then AktuelleRichtung.Rechts = False
    If KeyCode = vbKeyLeft Then AktuelleRichtung.Links = False
End Sub
 
Private Sub Timer1_Timer()
    If AktuelleRichtung.Rechts Then imgSoldier.Left = imgSoldier.Left + 10
    If AktuelleRichtung.Links Then imgSoldier.Left = imgSoldier.Left - 10
    DoEvents
End Sub