Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'DIE BEWGUNG DES BILDES
Select Case KeyCode
  Case Is = vbKeyRight
    If Not (Image1.Left + Image1.Width > Label1.Left + Label1.Width) Then
      Image1.Move Image1.Left + 20
    End If
  Case Is = vbKeyLeft
    If Not (Image1.Left <= Label1.Left) Then
      Image1.Move Image1.Left - 20
    End If
  Case Is = vbKeyDown
    If Not (Image1.Top + Image1.Height >= Label1.Top + Label1.Height) Then
      Image1.Move Image1.Left, Image1.Top + 20
    End If
  Case Is = vbKeyUp
    If Not (Image1.Top <= Label1.Top) Then
      Image1.Move Image1.Left, Image1.Top - 20
    End If
End Select
end sub