<code><font color=#000099>Private</font> <font color=#000099>Sub</font> _
  Form_KeyDown(KeyCode <font color=#000099>As</font> <font _
  color=#000099>Integer</font>, Shift <font color=#000099>As</font> <font _
  color=#000099>Integer</font>)
  <font color=#000099>Dim</font> kolX <font color=#000099>As</font> <font _
  color=#000099>Boolean</font>
  <font color=#000099>Dim</font> kolY <font color=#000099>As</font> <font _
  color=#000099>Boolean</font>
 
  <font color=green>' Sterung Image1 (Pfeil-Tasten)</font>
  <font color=#000099>With</font> Image1
    Select Case KeyCode
      Case vbKeyRight
        .Move .Left + 105
      Case vbKeyLeft
        .Move .Left - 105
      Case vbKeyUp
        .Move .Left, .Top - 105
      Case vbKeyDown
        .Move .Left, .Top + 105
    <font color=#000099>End</font> Select
 
    <font color=green>' Kollision?</font>
    kolX = ((.Left <= Image2.Left + Image2.Width <font color=#000099>And</font> _
      Image2.Left < .Left) <font color=#000099>Or</font> _
      (.Left + .Width >= Image2.Left <font color=#000099>And</font> Image2.Left _
      > .Left))
 
    kolY = ((.Top <= Image2.Top + Image2.Height <font color=#000099>And</font> _
      Image2.Top < .Top) <font color=#000099>Or</font> _
      (.Top + .Height >= Image2.Top <font color=#000099>And</font> Image2.Top > _
      .Top))
 
    <font color=#000099>If</font> kolX <font color=#000099>And</font> kolY _
      <font color=#000099>Then</font>
      MsgBox "Kollision"
    <font color=#000099>End</font> <font color=#000099>If</font>
  <font color=#000099>End</font> <font color=#000099>With</font>
<font color=#000099>End</font> <font color=#000099>Sub</font></code>