[Visual Basic] Problème compteur de click sur un boutton

Bonjour, bonjour Fxx
sans variable..

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        TextBox1.Text = Val(TextBox1.Text) + 1 
    End Sub 

A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .

Re,

TextBox11.Text = 1 si c'est cela que vous avez mis, c'est normal. Cherchez l'erreur!!!!

OUPS
Je suis désolé, j'ai fait une faute de frappe, j'ai mis un "1" à la place du "i"
Le compteur met désormais correctement.
Merci f894009 ;)

Bonjour, merci de votre réponse,

J'ai mis ce que vous m'avez dit,
la première fois que je clique sur le bouton, il m'affiche bien "1", mais après j'ai beau cliqué sur le bouton, la textbox m'affiche toujours 1 :/

Voici le programme de mon bouton :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
i = i + 1
TextBox11.Text = 1
TextBox2.Focus()
TextBox2.Select()
If TextBox2.Text < TextBox4.Text Then
TextBox3.ForeColor = Color.Blue
TextBox3.Text = "C'est plus grand"
TextBox8.Text = TextBox2.Text
TextBox2.Text = ""
End If
If TextBox2.Text > TextBox4.Text Then
TextBox3.ForeColor = Color.Red
TextBox3.Text = "C'est moins grand"
TextBox6.Text = TextBox2.Text
TextBox2.Text = ""
End If
If TextBox2.Text = TextBox4.Text Then
My.Computer.Audio.Play(My.Resources.applaudissements, AudioPlayMode.Background)
TextBox3.ForeColor = Color.Lime
TextBox3.Text = "C'est gagné"
TextBox10.Text = TextBox2.Text
Button3.Visible = True
Button2.Enabled = False
AcceptButton = Button3
TextBox2.Text = ""
End If
End Sub

J'ai mis "Public i As Integer" juste en dessous de form1.