Ah, maybe because you are notregistered user.
So, short version:
Label1_Click to Label9_Click can be replaced with
Sub Label1_Click
LabClick (Timer1b, Timer1, Label1)
End Sub
.
.
.
Sub Label9_Click
LabClick (Timer9b, Timer9, Label9)
End Sub
With this sub included in your code
Sub LabClick (TimB As Timer, Tim As Timer, Lab As Label)
TimB.Enabled = True
Lab.SetBackgroundImage(LoadBitmap(File.DirAssets, "Macchia_Sangue.gif"))
Lab.Enabled = False
Label11.Text = Label11.Text + 1
Label13.Text = Label13.Text + 1
Tim.Enabled = False
End Sub
Similarly, Timer1_Tick to Timer9_Tick can be replaced with
Sub Timer1_Tick
TimerGone (label1, timer1)
End Sub
.
.
.
.
Sub Timer9_Tick
TimerGone (label9, timer9)
End Sub
With this sub in your code
Sub TimerGone (Lab As Label, Tim As Timer)
Lab.Visible=False
Lab.Enabled=False
Tim.Enabled = False
Label13.Text = Label13.Text + 1
End Sub
Now, instead of adding 1 to Label13 (I presume this is your counter), you can write a sub to add 1 to it, check its value, and if it is 100 then do your stuff.