Answer:
Public Class Form1
Dim Counter As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Counter = 0
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Counter = Counter + 1
TextBox1.Text = Counter
End Sub
End Class
