Elementary Arithmetic Minigame

Public Class ComputingGame

    Dim VariableNumber1, VariableNumber2, VariableNumber3 As Integer

    Private Sub OutputQuestionButton_Click(sender As Object, e As EventArgs) Handles OutputQuestionButton.Click

        Randomize()
        VariableNumber1 = Int(Rnd() * 9) + 1
        VariableNumber2 = Int(Rnd() * 9) + 1
        QuestionInputTextBox1.Text = VariableNumber1
        QuestionInputTextBox2.Text = VariableNumber2

        If AdditionRadioButton.Checked Then OperatorLabel.Text = " + "
        If SubtractionRadioButton.Checked Then OperatorLabel.Text = " − "
        If MultiplicationRadioButton.Checked Then OperatorLabel.Text = " × "
        If DivisionRadioButton.Checked Then OperatorLabel.Text = " ÷ "

        AnswerOutputTextBox.Text = ""

        OutputQuestionButton.Enabled = False
        CheckAnswerButton.Enabled = False
        AnswerOutputTextBox.Enabled = True
        ComputingOptionsGroupBox.Enabled = False

        MessagePictureBox.Image = My.Resources.Blank

        AnswerOutputTextBox.Focus()

    End Sub

    Private Sub CheckAnswerButton_Click(sender As Object, e As EventArgs) Handles CheckAnswerButton.Click

        CheckAnswer()

    End Sub

    Private Sub ComputingGame_Load(sender As Object, e As EventArgs) Handles Me.Load

        OutputQuestionButton.Enabled = True
        CheckAnswerButton.Enabled = False
        AnswerOutputTextBox.Enabled = False
        ComputingOptionsGroupBox.Enabled = True

        OutputQuestionButton.Focus()

    End Sub

    Private Sub AnswerOutputTextBox_TextChanged(sender As Object, e As EventArgs) Handles AnswerOutputTextBox.TextChanged

        OutputQuestionButton.Enabled = False
        CheckAnswerButton.Enabled = True
        AnswerOutputTextBox.Enabled = True
        ComputingOptionsGroupBox.Enabled = False

    End Sub

    Sub CheckAnswer()

        If AdditionRadioButton.Checked Then VariableNumber3 = VariableNumber1 + VariableNumber2
        If SubtractionRadioButton.Checked Then VariableNumber3 = VariableNumber1 - VariableNumber2
        If MultiplicationRadioButton.Checked Then VariableNumber3 = VariableNumber1 * VariableNumber2
        If DivisionRadioButton.Checked Then VariableNumber3 = Int(VariableNumber1 / VariableNumber2)

        If VariableNumber3 = Val(AnswerOutputTextBox.Text) Then
            MessagePictureBox.Image = My.Resources.Win
        Else
            MessagePictureBox.Image = My.Resources.Lose
            MsgBox("Correct Answer: " & VariableNumber3)
        End If

        OutputQuestionButton.Enabled = True
        CheckAnswerButton.Enabled = False
        AnswerOutputTextBox.Enabled = False
        ComputingOptionsGroupBox.Enabled = True

        OutputQuestionButton.Focus()

    End Sub
End Class