Private Sub form_Load()
  Me.KeyPreview = True
  Image2.Visible = False
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  With Image1
    Select Case KeyCode
      Case vbKeyLeft
        KeyCode = 0
        Position.Text = "Left"
        Image1.Picture = LoadPicture(App.Path & "\man_left.gif")
        If .Left > 0 Then .Left = .Left - 5
 
      Case vbKeyRight
        KeyCode = 0
        Position.Text = "Right"
        Image1.Picture = LoadPicture(App.Path & "\man_right.gif")
        If .Left + .Width < Me.ScaleWidth Then .Left = .Left + 5
 
      Case vbKeyUp
        KeyCode = 0
        Position.Text = "Up"
        Image1.Picture = LoadPicture(App.Path & "\man_up.gif")
        If .Top > 0 Then .Top = .Top - 5
 
      Case vbKeyDown
        KeyCode = 0
        Position.Text = "Down"
        Image1.Picture = LoadPicture(App.Path & "\man_down.gif")
        If .Top + .Width < Me.ScaleWidth Then .Top = .Top + 5
 
      Case vbKeySpace
      KeyCode = 0
      Image2.Tag = Position.Text
      Image2.Visible = True
      Image2.Left = Image1.Left
      Image2.Top = Image1.Top
      Timer1.Enabled = True
    End Select
  End With
End Sub
 
 
 
Private Sub Timer1_Timer()
 
If Image2.Tag = "Up" Then
Image2.Top = Image2.Top - 15
End If
 
If Image2.Tag = "Down" Then
Image2.Top = Image2.Top + 15
End If
 
If Image2.Tag = "left" Then
Image2.Left = Image2.Left - 15
End If
 
If Image2.Tag = "Right" Then
Image2.Left = Image2.Left + 15
End If
 
 
End Sub

MfG Liechte
-------------------------------------------------------------------
Wir h?ren nicht auf zu spielen weil wir alt werden,
wir werden alt wenn wir aufh?ren zu spielen
-------------------------------------------------------------------