Public Class Form1
    Dim seconds As Integer
    Dim num1 As Integer
    Dim num2 As Integer
    Dim answer As Integer
    Dim score As Integer
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Button2.Enabled = False

    End Sub

    Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown

        If e.KeyCode = Keys.Enter Then

            e.Handled = True
            Button2_Click(sender, e)
            TextBox1.Select()
        End If

    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Button2.Enabled = True
        Button1.Enabled = False

        score = 0
        seconds = 60
        Label3.Text = seconds
        Timer1.Enabled = True
        Timer1.Start()

        Randomize()
        num1 = Int(Rnd() * 10) + 1
        num2 = Int(Rnd() * 10) + 1
        answer = num1 * num2

        Label2.Text = (num1 & " x " & num2 & " = ")

    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        If IsNumeric(TextBox1.Text) Then
            Dim guess As Integer
            guess = TextBox1.Text
            If guess = answer Then
                score += 1
            End If
        End If

        TextBox1.Text = ""
        TextBox1.Select()

        Randomize()
        num1 = Int(Rnd() * 10) + 1
        num2 = Int(Rnd() * 10) + 1
        answer = num1 * num2
        Label2.Text = (num1 & " x " & num2 & " = ")

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        Timer1.Interval = 1000

        If seconds > 0 Then
            seconds -= 1
            Label3.Text = seconds
        Else
            Timer1.Enabled = False
            Timer1.Stop()
            Button2.Enabled = False
            Button1.Enabled = True
            Label2.Text = ("Score: " & score)
        End If

    End Sub
End Class