Private Sub Form_Load()
  Me.KeyPreview = True
  Image2.Visible = False
  Timer1.Interval = 10
  Timer2.Interval = 10
  Timer2.Enabled = True
  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 - 10
End If
 
If Image2.Tag = "Down" Then
Image2.Top = Image2.Top + 10
End If
 
If Image2.Tag = "Left" Then
Image2.Left = Image2.Left - 10
End If
 
If Image2.Tag = "Right" Then
Image2.Left = Image2.Left + 10
End If
 
 
End Sub
 
Private Sub Timer2_Timer()
If Image2.Left - 150 > Enemy1.Left And Image2.Top + 150 < Enemy1.Top Then
MsgBox ("you win"), vbOKOnly, ("Victory")
End If
End Sub

cu
Bris

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