Programa basico de adivinar numero

[xavi22]

mira esto es lo que he conseguido por ahora:

Public Class Form1
Dim n As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Randomize()
n = Rnd() * 100
TextBox1.Text = Val(n)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Val(TextBox2.Text) > n Then
TextBox3.Text = "El numero es MEnor"
Else
If Val(TextBox2.Text) < n Then
TextBox3.Text = " el numero es MAyor "
Else
TextBox3.Text = " Has acertado el numero "
End If
End If
End Sub

Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

End Sub
End Class


------------
por ahora lo que me hace es introduzco numero y me indica si es mayor o menor al generado , y cuando lo aciertas te da el mensaje de que es el numero correcto.
ahora lo que quiero hacer es un contador de 10 intentos y no se como, a ver si alguien me puede ayudar.