Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  With Image1
    Select Case KeyCode
      Case vbKeyLeft 'links
        If .Left > 0 Then .Left = .Left - 45
      Case vbKeyRight 'rechts
        If .Left + .Width < Me.ScaleWidth Then .Left = .Left + 45
      Case vbKeyUp 'hoch
         If .Top > 0 Then .Top = .Top - 45
      Case vbKeyDown 'runter
         If .Top + .Height < Me.ScaleHeight Then .Top = .Top + 45
    End Select
  End With
End Sub

MfG Sanni

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