Dim s As an Integer, I, As an Integer, the total As Integer




Private Sub Command1_Click ()



Timer1. Enabled=True
Timer2. Enabled=True
S=Text2. Text
End Sub

Private Sub Command2_Click ()
End
End Sub

Private Sub Command3_Click ()
Randomize
Text2. Text=""
Text3. Text=""
Total=0
For I=0 To 15
Image1 (I). Picture=Image2. Picture
Image1 (I) Enabled=True
Next I
Timer1. Enabled=False
Timer2. Enabled=False

End Sub

Private Sub image1_Click (Index As an Integer)
If Image1 (Index). Picture=Image3. Picture Then
Total=total + 1
Text3. Text=total
End the If
End Sub


Private Sub Timer1_Timer ()
For I=0 To 15
Image1 (I). Picture=Image2. Picture
Next I

For I=1 To Fix (4 * Rnd ()) + 1
X=Fix (Rnd * 16)
Image1 (x). Picture=Image3. Picture
Next I


End Sub

Private Sub Timer2_Timer ()
If s=0 Then
For I=0 To 15
Image1 (I). Picture=Image2. Picture
Image1 (I) Enabled=False
Next I
Timer1. Enabled=False
Timer2. Enabled=False
End the If
Text2. Text=s
S=s - 1

End Sub
This is a play whack-a-mole game EXE but why runtime to Image (hit) of the rat text 3. The text did not add a??????? Why is that?

CodePudding user response:

Pictures can't compare?
If Image1 (Index). Picture=Image3. Picture Then