Public Amount As Long
Option Explicit


Private Sub Form_Load()
ImgAmi.Visible = False
End Sub

Private Sub ImgAmi_Click()
ImgAmi.Left = TrouverX(ImgAmi)
ImgAmi.Top = TrouverY(ImgAmi)
End Sub

Private Sub ImgAmi_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Amount = Val(Amount) - 10
LblScore.Caption = "Your score : " & Amount
End Sub

Private Sub ImgClick_Click()
ImgClick.Left = TrouverX(ImgClick)
ImgClick.Top = TrouverY(ImgClick)
End Sub

Private Sub ImgClick_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Amount = Amount + 1
LblScore.Caption = "Your score : " & Amount

If Amount = 10 Then
TmrShoot.Interval = 2500
LblLvl.Caption = "Level : 2"
End If

If Amount = 25 Then
TmrShoot.Interval = 1800
TmrAmi.Interval = 1600
LblLvl.Caption = "Level : 3"
End If

If Amount = 50 Then
TmrShoot.Interval = 1250
LblLvl.Caption = "Level : 4"
End If
End Sub

Private Sub TmrAmi_Timer()
ImgAmi.Visible = True
ImgAmi.Left = TrouverX(ImgAmi)
ImgAmi.Top = TrouverY(ImgAmi)
End Sub

Private Sub TmrShoot_Timer()
ImgClick.Left = TrouverX(ImgClick)
ImgClick.Top = TrouverY(ImgClick)
End Sub
Private Function TrouverX(Img As Image)
TrouverX = (Rnd * Form1.Width)

If TrouverX < 0 Then TrouverX = 0

If (Form1.Width - TrouverX - Img.Width) < 0 Then
TrouverX = Form1.Width - Img.Width
End If
End Function
Private Function TrouverY(Img As Image)
TrouverY = (Rnd * Form1.Height)

If TrouverY < 500 Then TrouverY = 500

If (Form1.Height - TrouverY - Img.Height) < Img.Height Then
TrouverY = (Form1.Height - (Img.Height * 2))
End If
End Function