Sub Btn_Click
Sound.Play
Dim value, imgn As String
If Timer2.Enabled = True Then Return
If Counter = 0 Then
Butao1 = Sender
Anim0.Start(Butao1)
Butao1.Visible = False
Counter = 1
Else If Counter = 1 Then
Butao2 = Sender
Anim1.Start(Butao2)
Butao2.Visible = False
Dim Buttons() As Button
Buttons = Array As Button(Button1,Button2,Button3,Button4,Button5,Button6,Button7,Button8,Button9,Button10,Button11,Button12,Button13,Button14,Button15,Button16)
For i = 0 To Buttons.Length - 1
Buttons(i).Enabled = False
Next
If Butao1.Tag = Butao2.Tag Then
Value = Label2.Text + Score
Label2.Text = Value
Pair = Pair + 1
Dim Buttons() As Button
Buttons = Array As Button(Button1,Button2,Button3,Button4,Button5,Button6,Button7,Button8,Button9,Button10,Button11,Button12,Button13,Button14,Button15,Button16)
For i = 0 To Buttons.Length - 1
Buttons(i).Enabled = True
Next
Butao1.Enabled = False
Butao2.Enabled = False
Else
Timer2.Enabled = True
End If
Counter = 0
Ticks = Ticks + 1
End If
If Pair = MaxPair Then
Timer1.Enabled = False
TotalScore = NumberFormat(((((1/((Label4.Text * 60 )+ Label6.Text))*Label2.Text) + (1/Ticks))*100)+Score * MaxPair,0,0)
Timer3.Enabled = True
End If
End Sub