Counter for multiplication game - vb.net

Question

Public Class Form1
' num1 and num2 now generate a number between 1 and 10
Dim num1 As Integer = CInt(Int((10 * Rnd()) + 1))
Dim counter As Integer
Dim num2 As Integer = CInt(Int((10 * Rnd()) + 1))
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
' Generates a new question everytime the button is clicked
num1 = CInt(Int((10 * Rnd()) + 1))
num2 = CInt(Int((10 * Rnd()) + 1))
'Displays question in textbox2
TextBox2.Text = num1 & "*" & num2
End Sub
Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
If TextBox1.Text = num1 * num2 Then
' If they get the answer right, they recieve postive feedback
Label2.Text = "Correct!!11"
Else
' Any other answer results in negative feedback
Label2.Text = "Incorrect, sorry about
This multiplication game is functioning as it should. I just need a way for the user of the game to be able to see how many questions they have gotten wrong and right. I need to implement a counter, but most of the guides online have proven useless. I decided to just post the code and see if someone could help me.

Answer 1

You could declare 2 new variables to store wrong and correct question values.
Dim wrongQuestions as Integer = 0
Dim correctQuestions as Integer = 0
If TextBox1.Text = num1 * num2 Then
' If they get the answer right, they recieve postive feedback
Label2.Text = "Correct!!11"
correctQuestions += 1
Else
' Any other answer results in negative feedback
Label2.Text = "Incorrect, sorry about"
wrongQuestions += 1
Then use
msgbox("Correct Questions: " & correctQuestions & " Incorrect Questions: " & wrongQuestions )

Answer 2

Using Random and with user input error checking
Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Me.AcceptButton = Button2
Button1.PerformClick()
End Sub
Dim prng As New Random
Dim answer As Integer
Dim incorrect As Integer = 0
Dim correct As Integer = 0
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' Generates a new question everytime the button is clicked
Dim num1 As Integer = prng.Next(1, 11)
Dim num2 As Integer = prng.Next(1, 11)
TextBox2.Text = String.Format("{0} * {1}", num1, num2)
answer = num1 * num2
TextBox1.Text = ""
TextBox1.Select()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'check answer
Dim useranswer As Integer
If Integer.TryParse(TextBox1.Text, useranswer) Then
If useranswer = answer Then
correct += 1
Label2.Text = "Correct "
Else
incorrect += 1
Label2.Text = "Incorrect"
End If
Label2.Text &= String.Format(" Totals: correct = {0}, incorrect = {1}", _
correct, incorrect)
Button1.PerformClick()
Else
Label2.Text = "answer should be numeric"
End If
End Sub