Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
  With Image1
    Select Case KeyCode
 
 
      Case vbKeyLeft
        'KeyCode = 0
        If .Left > 0 Then .Left = .Left - 45
 
 
      Case vbKeyRight
        KeyCode = 0
        If .Left + .Width < Me.ScaleWidth Then .Left = .Left + 45
    End Select
  End With
 
 
End Sub

MfG Sanni

* Phantasie ist wichtiger als Wissen, denn Wissen ist begrenzt *