Private Sub Form_Load()
    Me.KeyPreview = True 
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  With img_Ship
    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

cu
Bris

"640 KB Ram sind mehr als irgendein Programm jemals ben?tigen wird."
- (Bill Gates - 1981)