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 - 100
        DoEvents
      Case vbKeyRight
        KeyCode = 0
        If .Left + .Width < map1.Width Then .Left = .Left + 100
        DoEvents
      Case vbKeyUp
        KeyCode = 0
        If .Top > 0 Then .Top = .Top - 100
        DoEvents
      Case vbKeyDown
        KeyCode = 0
        If .Top + .Height < Me.ScaleHeight Then .Top = .Top + 100
        DoEvents
      Case vbKeySpace
        KeyCode = 0
        img_Torp.Top = img_Ship.Top
        img_Torp.Left = img_Ship.Left
        Timer1.Enabled = True
        DoEvents
    End Select
  End With
End Sub

cu
Bris

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