algebraNFunction

Imports MySql.Data.MySqlClient
Public Class AlebraNfunctions
    Dim con As MySqlConnection = New MySqlConnection("server=localhost;userid=root;password=Red-grape01;database=math") 'To make a connection with the specific MySQL server with the database being called "math" and access gained through the password and the userID
    Dim Dataadapter As MySqlDataAdapter = New MySqlDataAdapter 'Creating a new instance Dataadapter that can be used to manage connections to the database.
    Dim cmd As MySqlCommand = New MySqlCommand() 'Creates new instance MySQLCommand which allows me to query data
    Dim datareader As MySqlDataReader 'Reads the data on the database
    Dim total As Integer = 0 'A variable to count the total marks for this question section

    Private Sub AlebraNfunctions_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim sql As String
        Try
            sql = "SELECT * FROM currentuser" 'This is a MySQL command from VB.NET to SQL to select "*" which means everything from the table called "currentuser"
            con.Open() 'Open the connection with MySQL
            cmd.CommandText = sql 'Executes whatever command "sql" had.
            cmd.Connection = con 'Setting up a connection with the database in this instance
            Dataadapter.SelectCommand = cmd 'gets SQL command and stores the procedure so the data within the tables can be executed
            datareader = cmd.ExecuteReader 'Executes everything it reads in a row, following the statement given by the "cmd" - command.
            While datareader.Read 'while datareader is reading from "currentuser"
                userlabel.Text = datareader("UserName") 'the label called "userlabel" will have the text of whatever the datareader is reading. So in this case it will always be the current user who logged in, to let him know he logged into his account.
            End While

        Catch ex As Exception 'if there is any error or exeption in the "try" section and things didn't go the way it was expected, this line of code will absorb it and print error in this case

            MessageBox.Show("Error") 'show a messagebox saying error if something goes wrong in the Try process

        End Try
        con.Close() 'Close the connection with MySQL
        Finish1Button.Enabled = True 'This allows me to control whether or not to allow users to finish and save their current marks to the database before they complete all the questions. If its false then the button will be disabled

        Try 'Open up a Try catch
            sql = "SELECT * FROM topic1questions WHERE QsNumber=1" 'The sql string is to Select everything from the row of topic1questions where QsNumber is 1
            con.Open() 'Open the connection with MySQL
            cmd.CommandText = sql 'Executes whatever command "sql" had.
            cmd.Connection = con 'gets SQL command and stores the procedure so the data within the tables can be executed
            Dataadapter.SelectCommand = cmd
            datareader = cmd.ExecuteReader
            While datareader.Read 'while datareader is reading from "topic1questions" from the row where QsNumber is 1
                QS1.Text = datareader("Question") 'The text of a label called "QS1" is replaced with whatever the text is in the row of QsNumber 1, under the Question column
                qs1P1.Text = datareader("pAnswer1") 'The text of a label called "qs1P1" is replaced with whatever the text is in the row of QsNumber 1, under the pAnswer1 column where pAnswer stands for Possible answer
                qs1P2.Text = datareader("pAnswer2") 'The text of a label called "qs1P2" is replaced with whatever the text is in the row of QsNumber 1, under the pAnswer2 column where pAnswer stands for Possible answer
                qs1P3.Text = datareader("pAnswer3") 'The text of a label called "qs1P3" is replaced with whatever the text is in the row of QsNumber 1, under the pAnswer3 column where pAnswer stands for Possible answer
                qs1P4.Text = datareader("pAnswer4") 'The text of a label called "qs1P4" is replaced with whatever the text is in the row of QsNumber 1, under the pAnswer4 column where pAnswer stands for Possible answer
                answer1.Text = datareader("Answer") 'The text of a HIDDEN label under the questions called "answer1" is replaced with whatever the text is in the row of QsNumber 1, under the Answer column
            End While

        Catch ex As Exception 'if there is any error or exeption in the "try" section and things didn't go the way it was expected, this line of code will absorb it and print error in this case
            MessageBox.Show("Error in the qs answer section topic1") 'show a messagebox saying error if something goes wrong in the Try process
        End Try
        con.Close() 'Close the connection with MySQL

        'The same treatment is given to all the other sections of the topic sections

        Try
            sql = "SELECT * FROM topic1questions WHERE QsNumber=2"
            con.Open()
            cmd.CommandText = sql
            cmd.Connection = con
            Dataadapter.SelectCommand = cmd
            datareader = cmd.ExecuteReader
            While datareader.Read
                QS2.Text = datareader("Question")
                qs2P1.Text = datareader("pAnswer1")
                qs2p2.Text = datareader("pAnswer2")
                qs2P3.Text = datareader("pAnswer3")
                qs2P4.Text = datareader("pAnswer4")
                answer2.Text = datareader("Answer")
            End While

        Catch ex As Exception

        End Try
        con.Close()

        Try
            sql = "SELECT * FROM topic1questions WHERE QsNumber=3"
            con.Open()
            cmd.CommandText = sql
            cmd.Connection = con
            Dataadapter.SelectCommand = cmd
            datareader = cmd.ExecuteReader
            While datareader.Read
                QS3.Text = datareader("Question")
                qs3P1.Text = datareader("pAnswer1")
                qs3P2.Text = datareader("pAnswer2")
                qs3P3.Text = datareader("pAnswer3")
                qs3P4.Text = datareader("pAnswer4")
                answer3.Text = datareader("Answer")
            End While

        Catch ex As Exception

        End Try
        con.Close()

        Try
            sql = "SELECT * FROM topic1questions WHERE QsNumber=4"
            con.Open()
            cmd.CommandText = sql
            cmd.Connection = con
            Dataadapter.SelectCommand = cmd
            datareader = cmd.ExecuteReader
            While datareader.Read
                QS4.Text = datareader("Question")
                qs4P1.Text = datareader("pAnswer1")
                qs4P2.Text = datareader("pAnswer2")
                qs4P3.Text = datareader("pAnswer3")
                qs4P4.Text = datareader("pAnswer4")
                answer4.Text = datareader("Answer")
            End While

        Catch ex As Exception

        End Try
        con.Close()

        Try
            sql = "SELECT * FROM topic1questions WHERE QsNumber=5"
            con.Open()
            cmd.CommandText = sql
            cmd.Connection = con
            Dataadapter.SelectCommand = cmd
            datareader = cmd.ExecuteReader
            While datareader.Read
                QS5.Text = datareader("Question")
                qs5P1.Text = datareader("pAnswer1")
                qs5P2.Text = datareader("pAnswer2")
                qs5P3.Text = datareader("pAnswer3")
                qs5P4.Text = datareader("pAnswer4")
                answer5.Text = datareader("Answer")
            End While

        Catch ex As Exception

        End Try
        con.Close()

        Try
            sql = "SELECT * FROM topic1questions WHERE QsNumber=6"
            con.Open()
            cmd.CommandText = sql
            cmd.Connection = con
            Dataadapter.SelectCommand = cmd
            datareader = cmd.ExecuteReader
            While datareader.Read
                QS6.Text = datareader("Question")
                qs6P1.Text = datareader("pAnswer1")
                qs6P2.Text = datareader("pAnswer2")
                qs6P3.Text = datareader("pAnswer3")
                qs6P4.Text = datareader("pAnswer4")
                answer6.Text = datareader("Answer")
            End While

        Catch ex As Exception

        End Try
        con.Close()

        Try
            sql = "SELECT * FROM topic1questions WHERE QsNumber=7"
            con.Open()
            cmd.CommandText = sql
            cmd.Connection = con
            Dataadapter.SelectCommand = cmd
            datareader = cmd.ExecuteReader
            While datareader.Read
                QS7.Text = datareader("Question")
                qs7P1.Text = datareader("pAnswer1")
                qs7P2.Text = datareader("pAnswer2")
                qs7P3.Text = datareader("pAnswer3")
                qs7P4.Text = datareader("pAnswer4")
                answer7.Text = datareader("Answer")
            End While

        Catch ex As Exception

        End Try
        con.Close()

        Try
            sql = "SELECT * FROM topic1questions WHERE QsNumber=8"
            con.Open()
            cmd.CommandText = sql
            cmd.Connection = con
            Dataadapter.SelectCommand = cmd
            datareader = cmd.ExecuteReader
            While datareader.Read
                QS8.Text = datareader("Question")
                qs8P1.Text = datareader("pAnswer1")
                qs8P2.Text = datareader("pAnswer2")
                qs8P3.Text = datareader("pAnswer3")
                qs8P4.Text = datareader("pAnswer4")
                answer8.Text = datareader("Answer")
            End While

        Catch ex As Exception

        End Try
        con.Close()

        Try
            sql = "SELECT * FROM topic1questions WHERE QsNumber=9"
            con.Open()
            cmd.CommandText = sql
            cmd.Connection = con
            Dataadapter.SelectCommand = cmd
            datareader = cmd.ExecuteReader
            While datareader.Read
                QS9.Text = datareader("Question")
                qs9p1.Text = datareader("pAnswer1")
                qs9p2.Text = datareader("pAnswer2")
                qs9p3.Text = datareader("pAnswer3")
                qs9p4.Text = datareader("pAnswer4")
                answer9.Text = datareader("Answer")
            End While

        Catch ex As Exception

        End Try
        con.Close()

        Try
            sql = "SELECT * FROM topic1questions WHERE QsNumber=10"
            con.Open()
            cmd.CommandText = sql
            cmd.Connection = con
            Dataadapter.SelectCommand = cmd
            datareader = cmd.ExecuteReader
            While datareader.Read
                QS10.Text = datareader("Question")
                qs10p1.Text = datareader("pAnswer1")
                qs10p2.Text = datareader("pAnswer2")
                qs10p3.Text = datareader("pAnswer3")
                qs10p4.Text = datareader("pAnswer4")
                answer10.Text = datareader("Answer")
            End While

        Catch ex As Exception

        End Try
        con.Close()

        Try
            sql = "SELECT * FROM topic1questions WHERE QsNumber=11"
            con.Open()
            cmd.CommandText = sql
            cmd.Connection = con
            Dataadapter.SelectCommand = cmd
            datareader = cmd.ExecuteReader
            While datareader.Read
                QS11.Text = datareader("Question")
                qs11p1.Text = datareader("pAnswer1")
                qs11p2.Text = datareader("pAnswer2")
                qs11p3.Text = datareader("pAnswer3")
                qs11p4.Text = datareader("pAnswer4")
                answer11.Text = datareader("Answer")
            End While

        Catch ex As Exception

        End Try
        con.Close()

        Try
            sql = "SELECT * FROM topic1questions WHERE QsNumber=12"
            con.Open()
            cmd.CommandText = sql
            cmd.Connection = con
            Dataadapter.SelectCommand = cmd
            datareader = cmd.ExecuteReader
            While datareader.Read
                QS12.Text = datareader("Question")
                qs12p1.Text = datareader("pAnswer1")
                qs12p2.Text = datareader("pAnswer2")
                qs12p3.Text = datareader("pAnswer3")
                qs12p4.Text = datareader("pAnswer4")
                answer12.Text = datareader("Answer")
            End While

        Catch ex As Exception

        End Try
        con.Close()

        Try
            sql = "SELECT * FROM topic1questions WHERE QsNumber=13"
            con.Open()
            cmd.CommandText = sql
            cmd.Connection = con
            Dataadapter.SelectCommand = cmd
            datareader = cmd.ExecuteReader
            While datareader.Read
                QS13.Text = datareader("Question")
                qs13p1.Text = datareader("pAnswer1")
                qs13p2.Text = datareader("pAnswer2")
                qs13p3.Text = datareader("pAnswer3")
                qs13p4.Text = datareader("pAnswer4")
                answer13.Text = datareader("Answer")
            End While

        Catch ex As Exception

        End Try
        con.Close()
    End Sub

    Private Sub qs1P2_Click(sender As Object, e As EventArgs) Handles qs1P2.Click 'If this button is clicked then it will execute the following

        If qs1P2.Text = answer1.Text Then 'If the text of button qs1P2 is identical to the text of label answer1 which is hidden
            total += 1 'Add 1 to the current mark(s) you have that is being displayed
            MarkLable.Text = total 'A label called Mark label is now updated to the current value of "total"
            RiteRongLable.Text = "Correct!" 'The label called "RiteRongLable" will change its text to "correct"
            qs1P2.BackColor = Color.Green 'The colour of the button will change to green

            qs1P1.Enabled = False 'Disable this button
            qs1P2.Enabled = False 'Disable this button
            qs1P3.Enabled = False 'Disable this button
            qs1P4.Enabled = False 'Disable this button
        Else
            RiteRongLable.Text = "Wrong" 'This text will come up on the top right corner if the text in the button that you have clicked doesn't match the text in the hidden answer label
            qs1P2.BackColor = Color.Red 'Since the answer didn't match the text of the button that was pressed, the button turns red to indicate you got it wrong

            qs1P1.Enabled = False 'Disable this button
            qs1P2.Enabled = False 'Disable this button
            qs1P3.Enabled = False 'Disable this button
            qs1P4.Enabled = False 'Disable this button
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True 'Enable the finish button
            'Assuming the finish button was disabled from the coding above, this checks whether or not the first button of each questions are disabled, if so then enable the finish button. This is handy because someone might leave the first few questions then do them at the end, so no matter what order you have finished your questions, the finish button will automatically be enabled after all the questions are completed.
        End If

    End Sub

    Private Sub qs1P1_Click(sender As Object, e As EventArgs) Handles qs1P1.Click
        If qs1P1.Text = answer1.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs1P1.BackColor = Color.Green

            qs1P1.Enabled = False
            qs1P2.Enabled = False
            qs1P3.Enabled = False
            qs1P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs1P1.BackColor = Color.Red

            qs1P1.Enabled = False
            qs1P2.Enabled = False
            qs1P3.Enabled = False
            qs1P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs1P3_Click(sender As Object, e As EventArgs) Handles qs1P3.Click
        If qs1P3.Text = answer1.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs1P3.BackColor = Color.Green

            qs1P1.Enabled = False
            qs1P2.Enabled = False
            qs1P3.Enabled = False
            qs1P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs1P3.BackColor = Color.Red

            qs1P1.Enabled = False
            qs1P2.Enabled = False
            qs1P3.Enabled = False
            qs1P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs1p4_Click(sender As Object, e As EventArgs) Handles qs1P4.Click
        If qs1P4.Text = answer1.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs1P4.BackColor = Color.Green

            qs1P1.Enabled = False
            qs1P2.Enabled = False
            qs1P3.Enabled = False
            qs1P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs1P4.BackColor = Color.Red

            qs1P1.Enabled = False
            qs1P2.Enabled = False
            qs1P3.Enabled = False
            qs1P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub NxtPageBtn_Click_1(sender As Object, e As EventArgs) Handles NxtPageBtn.Click
        Tabz.SelectedIndex = Tabz.SelectedIndex + 1
    End Sub

    Private Sub PrevPageBtn_Click(sender As Object, e As EventArgs) Handles PrevPageBtn.Click
        Tabz.SelectedIndex = Tabz.SelectedIndex - 1
        If Tabz.SelectedIndex = -1 Then
            Tabz.SelectedIndex = Tabz.SelectedIndex + 1
        End If
    End Sub

    Private Sub qs2P1_Click(sender As Object, e As EventArgs) Handles qs2P1.Click
        If qs2P1.Text = answer2.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs2P1.BackColor = Color.Green

            qs2P1.Enabled = False
            qs2p2.Enabled = False
            qs2P3.Enabled = False
            qs2P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs2P1.BackColor = Color.Red

            qs2P1.Enabled = False
            qs2p2.Enabled = False
            qs2P3.Enabled = False
            qs2P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs2p2_Click(sender As Object, e As EventArgs) Handles qs2p2.Click
        If qs2p2.Text = answer2.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs2p2.BackColor = Color.Green

            qs2P1.Enabled = False
            qs2p2.Enabled = False
            qs2P3.Enabled = False
            qs2P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs2p2.BackColor = Color.Red

            qs2P1.Enabled = False
            qs2p2.Enabled = False
            qs2P3.Enabled = False
            qs2P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs2P3_Click(sender As Object, e As EventArgs) Handles qs2P3.Click
        If qs2P3.Text = answer2.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs2P3.BackColor = Color.Green

            qs2P1.Enabled = False
            qs2p2.Enabled = False
            qs2P3.Enabled = False
            qs2P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs2P3.BackColor = Color.Red

            qs2P1.Enabled = False
            qs2p2.Enabled = False
            qs2P3.Enabled = False
            qs2P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs2P4_Click(sender As Object, e As EventArgs) Handles qs2P4.Click
        If qs2P4.Text = answer2.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs2P4.BackColor = Color.Green

            qs2P1.Enabled = False
            qs2p2.Enabled = False
            qs2P3.Enabled = False
            qs2P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs2P4.BackColor = Color.Red

            qs2P1.Enabled = False
            qs2p2.Enabled = False
            qs2P3.Enabled = False
            qs2P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs3P1_Click(sender As Object, e As EventArgs) Handles qs3P1.Click
        If qs3P1.Text = answer3.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs3P1.BackColor = Color.Green

            qs3P1.Enabled = False
            qs3P2.Enabled = False
            qs3P3.Enabled = False
            qs3P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs3P1.BackColor = Color.Red

            qs3P1.Enabled = False
            qs3P2.Enabled = False
            qs3P3.Enabled = False
            qs3P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs3P2_Click(sender As Object, e As EventArgs) Handles qs3P2.Click
        If qs3P2.Text = answer3.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs3P2.BackColor = Color.Green

            qs3P1.Enabled = False
            qs3P2.Enabled = False
            qs3P3.Enabled = False
            qs3P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs3P2.BackColor = Color.Red

            qs3P1.Enabled = False
            qs3P2.Enabled = False
            qs3P3.Enabled = False
            qs3P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs3P3_Click(sender As Object, e As EventArgs) Handles qs3P3.Click
        If qs3P3.Text = answer3.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs3P3.BackColor = Color.Green

            qs3P1.Enabled = False
            qs3P2.Enabled = False
            qs3P3.Enabled = False
            qs3P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs3P3.BackColor = Color.Red

            qs3P1.Enabled = False
            qs3P2.Enabled = False
            qs3P3.Enabled = False
            qs3P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs3P4_Click(sender As Object, e As EventArgs) Handles qs3P4.Click
        If qs3P4.Text = answer3.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs3P4.BackColor = Color.Green

            qs3P1.Enabled = False
            qs3P2.Enabled = False
            qs3P3.Enabled = False
            qs3P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs3P4.BackColor = Color.Red

            qs3P1.Enabled = False
            qs3P2.Enabled = False
            qs3P3.Enabled = False
            qs3P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs4P1_Click(sender As Object, e As EventArgs) Handles qs4P1.Click
        If qs4P1.Text = answer4.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs4P1.BackColor = Color.Green

            qs4P1.Enabled = False
            qs4P2.Enabled = False
            qs4P3.Enabled = False
            qs4P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs4P1.BackColor = Color.Red

            qs4P1.Enabled = False
            qs4P2.Enabled = False
            qs4P3.Enabled = False
            qs4P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs4P2_Click(sender As Object, e As EventArgs) Handles qs4P2.Click
        If qs4P2.Text = answer4.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs4P2.BackColor = Color.Green

            qs4P1.Enabled = False
            qs4P2.Enabled = False
            qs4P3.Enabled = False
            qs4P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs4P2.BackColor = Color.Red

            qs4P1.Enabled = False
            qs4P2.Enabled = False
            qs4P3.Enabled = False
            qs4P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs4P3_Click(sender As Object, e As EventArgs) Handles qs4P3.Click
        If qs4P3.Text = answer4.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs4P3.BackColor = Color.Green

            qs4P1.Enabled = False
            qs4P2.Enabled = False
            qs4P3.Enabled = False
            qs4P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs4P3.BackColor = Color.Red

            qs4P1.Enabled = False
            qs4P2.Enabled = False
            qs4P3.Enabled = False
            qs4P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs4P4_Click(sender As Object, e As EventArgs) Handles qs4P4.Click
        If qs4P4.Text = answer4.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs4P4.BackColor = Color.Green

            qs4P1.Enabled = False
            qs4P2.Enabled = False
            qs4P3.Enabled = False
            qs4P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs4P4.BackColor = Color.Red

            qs4P1.Enabled = False
            qs4P2.Enabled = False
            qs4P3.Enabled = False
            qs4P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs5P1_Click(sender As Object, e As EventArgs) Handles qs5P1.Click
        If qs5P1.Text = answer5.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs5P1.BackColor = Color.Green

            qs5P1.Enabled = False
            qs5P2.Enabled = False
            qs5P3.Enabled = False
            qs5P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs5P1.BackColor = Color.Red

            qs5P1.Enabled = False
            qs5P2.Enabled = False
            qs5P3.Enabled = False
            qs5P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs5P2_Click(sender As Object, e As EventArgs) Handles qs5P2.Click
        If qs5P2.Text = answer5.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs5P2.BackColor = Color.Green

            qs5P1.Enabled = False
            qs5P2.Enabled = False
            qs5P3.Enabled = False
            qs5P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs5P2.BackColor = Color.Red

            qs5P1.Enabled = False
            qs5P2.Enabled = False
            qs5P3.Enabled = False
            qs5P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs5P3_Click(sender As Object, e As EventArgs) Handles qs5P3.Click
        If qs5P3.Text = answer5.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs5P3.BackColor = Color.Green

            qs5P1.Enabled = False
            qs5P2.Enabled = False
            qs5P3.Enabled = False
            qs5P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs5P3.BackColor = Color.Red

            qs5P1.Enabled = False
            qs5P2.Enabled = False
            qs5P3.Enabled = False
            qs5P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs5P4_Click(sender As Object, e As EventArgs) Handles qs5P4.Click
        If qs5P4.Text = answer5.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs5P4.BackColor = Color.Green

            qs5P1.Enabled = False
            qs5P2.Enabled = False
            qs5P3.Enabled = False
            qs5P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs5P4.BackColor = Color.Red

            qs5P1.Enabled = False
            qs5P2.Enabled = False
            qs5P3.Enabled = False
            qs5P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs6P1_Click(sender As Object, e As EventArgs) Handles qs6P1.Click
        If qs6P1.Text = answer6.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs6P1.BackColor = Color.Green

            qs6P1.Enabled = False
            qs6P2.Enabled = False
            qs6P3.Enabled = False
            qs6P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs6P1.BackColor = Color.Red

            qs6P1.Enabled = False
            qs6P2.Enabled = False
            qs6P3.Enabled = False
            qs6P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs6P2_Click(sender As Object, e As EventArgs) Handles qs6P2.Click
        If qs6P2.Text = answer6.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs6P2.BackColor = Color.Green

            qs6P1.Enabled = False
            qs6P2.Enabled = False
            qs6P3.Enabled = False
            qs6P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs6P2.BackColor = Color.Red

            qs6P1.Enabled = False
            qs6P2.Enabled = False
            qs6P3.Enabled = False
            qs6P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs6P3_Click(sender As Object, e As EventArgs) Handles qs6P3.Click
        If qs6P3.Text = answer6.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs6P3.BackColor = Color.Green

            qs6P1.Enabled = False
            qs6P2.Enabled = False
            qs6P3.Enabled = False
            qs6P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs6P3.BackColor = Color.Red

            qs6P1.Enabled = False
            qs6P2.Enabled = False
            qs6P3.Enabled = False
            qs6P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs6P4_Click(sender As Object, e As EventArgs) Handles qs6P4.Click
        If qs6P4.Text = answer6.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs6P4.BackColor = Color.Green

            qs6P1.Enabled = False
            qs6P2.Enabled = False
            qs6P3.Enabled = False
            qs6P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs6P4.BackColor = Color.Red

            qs6P1.Enabled = False
            qs6P2.Enabled = False
            qs6P3.Enabled = False
            qs6P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs7P1_Click(sender As Object, e As EventArgs) Handles qs7P1.Click
        If qs7P1.Text = answer7.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs7P1.BackColor = Color.Green

            qs7P1.Enabled = False
            qs7P2.Enabled = False
            qs7P3.Enabled = False
            qs7P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs7P1.BackColor = Color.Red

            qs7P1.Enabled = False
            qs7P2.Enabled = False
            qs7P3.Enabled = False
            qs7P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs7P2_Click(sender As Object, e As EventArgs) Handles qs7P2.Click
        If qs7P2.Text = answer7.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs7P2.BackColor = Color.Green

            qs7P1.Enabled = False
            qs7P2.Enabled = False
            qs7P3.Enabled = False
            qs7P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs7P2.BackColor = Color.Red

            qs7P1.Enabled = False
            qs7P2.Enabled = False
            qs7P3.Enabled = False
            qs7P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs7P3_Click(sender As Object, e As EventArgs) Handles qs7P3.Click
        If qs7P3.Text = answer7.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs7P3.BackColor = Color.Green

            qs7P1.Enabled = False
            qs7P2.Enabled = False
            qs7P3.Enabled = False
            qs7P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs7P3.BackColor = Color.Red

            qs7P1.Enabled = False
            qs7P2.Enabled = False
            qs7P3.Enabled = False
            qs7P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs7P4_Click(sender As Object, e As EventArgs) Handles qs7P4.Click
        If qs7P4.Text = answer7.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs7P4.BackColor = Color.Green

            qs7P1.Enabled = False
            qs7P2.Enabled = False
            qs7P3.Enabled = False
            qs7P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs7P4.BackColor = Color.Red

            qs7P1.Enabled = False
            qs7P2.Enabled = False
            qs7P3.Enabled = False
            qs7P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs8P1_Click(sender As Object, e As EventArgs) Handles qs8P1.Click
        If qs8P1.Text = answer8.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs8P1.BackColor = Color.Green

            qs8P1.Enabled = False
            qs8P2.Enabled = False
            qs8P3.Enabled = False
            qs8P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs8P1.BackColor = Color.Red

            qs8P1.Enabled = False
            qs8P2.Enabled = False
            qs8P3.Enabled = False
            qs8P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs8P2_Click(sender As Object, e As EventArgs) Handles qs8P2.Click
        If qs8P2.Text = answer8.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs8P2.BackColor = Color.Green

            qs8P1.Enabled = False
            qs8P2.Enabled = False
            qs8P3.Enabled = False
            qs8P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs8P2.BackColor = Color.Red

            qs8P1.Enabled = False
            qs8P2.Enabled = False
            qs8P3.Enabled = False
            qs8P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs8P3_Click(sender As Object, e As EventArgs) Handles qs8P3.Click
        If qs8P3.Text = answer8.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs8P3.BackColor = Color.Green

            qs8P1.Enabled = False
            qs8P2.Enabled = False
            qs8P3.Enabled = False
            qs8P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs8P3.BackColor = Color.Red

            qs8P1.Enabled = False
            qs8P2.Enabled = False
            qs8P3.Enabled = False
            qs8P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs8P4_Click(sender As Object, e As EventArgs) Handles qs8P4.Click
        If qs8P4.Text = answer8.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs8P4.BackColor = Color.Green

            qs8P1.Enabled = False
            qs8P2.Enabled = False
            qs8P3.Enabled = False
            qs8P4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs8P4.BackColor = Color.Red

            qs8P1.Enabled = False
            qs8P2.Enabled = False
            qs8P3.Enabled = False
            qs8P4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs9p1_Click(sender As Object, e As EventArgs) Handles qs9p1.Click
        If qs9p1.Text = answer9.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs9p1.BackColor = Color.Green

            qs9p1.Enabled = False
            qs9p2.Enabled = False
            qs9p3.Enabled = False
            qs9p4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs9p1.BackColor = Color.Red

            qs9p1.Enabled = False
            qs9p2.Enabled = False
            qs9p3.Enabled = False
            qs9p4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs9p2_Click(sender As Object, e As EventArgs) Handles qs9p2.Click
        If qs9p2.Text = answer9.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs9p2.BackColor = Color.Green

            qs9p1.Enabled = False
            qs9p2.Enabled = False
            qs9p3.Enabled = False
            qs9p4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs9p2.BackColor = Color.Red

            qs9p1.Enabled = False
            qs9p2.Enabled = False
            qs9p3.Enabled = False
            qs9p4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs9p3_Click(sender As Object, e As EventArgs) Handles qs9p3.Click
        If qs9p3.Text = answer9.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs9p3.BackColor = Color.Green

            qs9p1.Enabled = False
            qs9p2.Enabled = False
            qs9p3.Enabled = False
            qs9p4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs9p3.BackColor = Color.Red

            qs9p1.Enabled = False
            qs9p2.Enabled = False
            qs9p3.Enabled = False
            qs9p4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs9p4_Click(sender As Object, e As EventArgs) Handles qs9p4.Click
        If qs9p4.Text = answer9.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs9p4.BackColor = Color.Green

            qs9p1.Enabled = False
            qs9p2.Enabled = False
            qs9p3.Enabled = False
            qs9p4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs9p4.BackColor = Color.Red

            qs9p1.Enabled = False
            qs9p2.Enabled = False
            qs9p3.Enabled = False
            qs9p4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs10p1_Click(sender As Object, e As EventArgs) Handles qs10p1.Click
        If qs10p1.Text = answer10.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs10p1.BackColor = Color.Green

            qs10p1.Enabled = False
            qs10p2.Enabled = False
            qs10p3.Enabled = False
            qs10p4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs10p1.BackColor = Color.Red

            qs10p1.Enabled = False
            qs10p2.Enabled = False
            qs10p3.Enabled = False
            qs10p4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs10p2_Click(sender As Object, e As EventArgs) Handles qs10p2.Click
        If qs10p2.Text = answer10.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs10p2.BackColor = Color.Green

            qs10p1.Enabled = False
            qs10p2.Enabled = False
            qs10p3.Enabled = False
            qs10p4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs10p2.BackColor = Color.Red

            qs10p1.Enabled = False
            qs10p2.Enabled = False
            qs10p3.Enabled = False
            qs10p4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs10p3_Click(sender As Object, e As EventArgs) Handles qs10p3.Click
        If qs10p3.Text = answer10.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs10p3.BackColor = Color.Green

            qs10p1.Enabled = False
            qs10p2.Enabled = False
            qs10p3.Enabled = False
            qs10p4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs10p3.BackColor = Color.Red

            qs10p1.Enabled = False
            qs10p2.Enabled = False
            qs10p3.Enabled = False
            qs10p4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs10p4_Click(sender As Object, e As EventArgs) Handles qs10p4.Click
        If qs10p4.Text = answer10.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs10p4.BackColor = Color.Green

            qs10p1.Enabled = False
            qs10p2.Enabled = False
            qs10p3.Enabled = False
            qs10p4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs10p4.BackColor = Color.Red

            qs10p1.Enabled = False
            qs10p2.Enabled = False
            qs10p3.Enabled = False
            qs10p4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs11p1_Click(sender As Object, e As EventArgs) Handles qs11p1.Click
        If qs11p1.Text = answer11.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs11p1.BackColor = Color.Green

            qs11p1.Enabled = False
            qs11p2.Enabled = False
            qs11p3.Enabled = False
            qs11p4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs11p1.BackColor = Color.Red

            qs11p1.Enabled = False
            qs11p2.Enabled = False
            qs11p3.Enabled = False
            qs11p4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs11p2_Click(sender As Object, e As EventArgs) Handles qs11p2.Click
        If qs11p2.Text = answer11.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs11p2.BackColor = Color.Green

            qs11p1.Enabled = False
            qs11p2.Enabled = False
            qs11p3.Enabled = False
            qs11p4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs11p2.BackColor = Color.Red

            qs11p1.Enabled = False
            qs11p2.Enabled = False
            qs11p3.Enabled = False
            qs11p4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs11p3_Click(sender As Object, e As EventArgs) Handles qs11p3.Click
        If qs11p3.Text = answer11.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs11p3.BackColor = Color.Green

            qs11p1.Enabled = False
            qs11p2.Enabled = False
            qs11p3.Enabled = False
            qs11p4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs11p3.BackColor = Color.Red

            qs11p1.Enabled = False
            qs11p2.Enabled = False
            qs11p3.Enabled = False
            qs11p4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs11p4_Click(sender As Object, e As EventArgs) Handles qs11p4.Click
        If qs11p4.Text = answer11.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs11p4.BackColor = Color.Green

            qs11p1.Enabled = False
            qs11p2.Enabled = False
            qs11p3.Enabled = False
            qs11p4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs11p4.BackColor = Color.Red

            qs11p1.Enabled = False
            qs11p2.Enabled = False
            qs11p3.Enabled = False
            qs11p4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs12p1_Click(sender As Object, e As EventArgs) Handles qs12p1.Click
        If qs12p1.Text = answer12.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs12p1.BackColor = Color.Green

            qs12p1.Enabled = False
            qs12p2.Enabled = False
            qs12p3.Enabled = False
            qs12p4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs12p1.BackColor = Color.Red

            qs12p1.Enabled = False
            qs12p2.Enabled = False
            qs12p3.Enabled = False
            qs12p4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs12p2_Click(sender As Object, e As EventArgs) Handles qs12p2.Click
        If qs12p2.Text = answer12.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs12p2.BackColor = Color.Green

            qs12p1.Enabled = False
            qs12p2.Enabled = False
            qs12p3.Enabled = False
            qs12p4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs12p2.BackColor = Color.Red

            qs12p1.Enabled = False
            qs12p2.Enabled = False
            qs12p3.Enabled = False
            qs12p4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs12p3_Click(sender As Object, e As EventArgs) Handles qs12p3.Click
        If qs12p3.Text = answer12.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs12p3.BackColor = Color.Green

            qs12p1.Enabled = False
            qs12p2.Enabled = False
            qs12p3.Enabled = False
            qs12p4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs12p3.BackColor = Color.Red

            qs12p1.Enabled = False
            qs12p2.Enabled = False
            qs12p3.Enabled = False
            qs12p4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs12p4_Click(sender As Object, e As EventArgs) Handles qs12p4.Click
        If qs12p4.Text = answer12.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs12p4.BackColor = Color.Green

            qs12p1.Enabled = False
            qs12p2.Enabled = False
            qs12p3.Enabled = False
            qs12p4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs12p4.BackColor = Color.Red

            qs12p1.Enabled = False
            qs12p2.Enabled = False
            qs12p3.Enabled = False
            qs12p4.Enabled = False
        End If
    End Sub

    Private Sub qs13p1_Click(sender As Object, e As EventArgs) Handles qs13p1.Click
        If qs13p1.Text = answer13.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs13p1.BackColor = Color.Green

            qs13p1.Enabled = False
            qs13p2.Enabled = False
            qs13p3.Enabled = False
            qs13p4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs13p1.BackColor = Color.Red

            qs13p1.Enabled = False
            qs13p2.Enabled = False
            qs13p3.Enabled = False
            qs13p4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs13p2_Click(sender As Object, e As EventArgs) Handles qs13p2.Click
        If qs13p2.Text = answer13.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs13p2.BackColor = Color.Green

            qs13p1.Enabled = False
            qs13p2.Enabled = False
            qs13p3.Enabled = False
            qs13p4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs13p2.BackColor = Color.Red

            qs13p1.Enabled = False
            qs13p2.Enabled = False
            qs13p3.Enabled = False
            qs13p4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs13p3_Click(sender As Object, e As EventArgs) Handles qs13p3.Click
        If qs13p3.Text = answer13.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs13p3.BackColor = Color.Green

            qs13p1.Enabled = False
            qs13p2.Enabled = False
            qs13p3.Enabled = False
            qs13p4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs13p3.BackColor = Color.Red

            qs13p1.Enabled = False
            qs13p2.Enabled = False
            qs13p3.Enabled = False
            qs13p4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub qs13p4_Click(sender As Object, e As EventArgs) Handles qs13p4.Click
        If qs13p4.Text = answer13.Text Then
            total += 1
            MarkLable.Text = total
            RiteRongLable.Text = "Correct!"
            qs13p4.BackColor = Color.Green

            qs13p1.Enabled = False
            qs13p2.Enabled = False
            qs13p3.Enabled = False
            qs13p4.Enabled = False
        Else
            RiteRongLable.Text = "Wrong"
            qs13p4.BackColor = Color.Red

            qs13p1.Enabled = False
            qs13p2.Enabled = False
            qs13p3.Enabled = False
            qs13p4.Enabled = False
        End If
        If qs1P1.Enabled = False And qs2P1.Enabled = False And qs3P1.Enabled = False And qs4P1.Enabled = False And qs5P1.Enabled = False And qs6P1.Enabled = False And qs7P1.Enabled = False And qs8P1.Enabled = False And qs9p1.Enabled = False And qs10p1.Enabled = False And qs11p1.Enabled = False And qs12p1.Enabled = False And qs13p1.Enabled = False Then
            Finish1Button.Enabled = True
        End If
    End Sub

    Private Sub Finish1Button_Click(sender As Object, e As EventArgs) Handles Finish1Button.Click
        con = New MySqlConnection 'Creating a new connection variable with MySQL
        con.ConnectionString = "server=localhost;userid=root;password=Red-grape01;database=math" 'To make a connection with the specific MySQL server with the database being called "math" and access gained through the password and the userID
        Try
            con.Open() 'Open connection with MySQL
            Dim Order As String
            Order = "update math.marks set T1Marks='" & MarkLable.Text & "' WHERE Username='" & userlabel.Text & "'" 'This code updates the table called "marks" in the database called "math" in the coloumn of T1Marks and row of the current user's name who is now logged in. username is taken from the label text that is displayed on the top right corner which was extracted from "currentuser" table. It takes the number in the label called marklable and replaces the current number at T1Marks for that user with the current marks in the marklable.
            cmd = New MySqlCommand(Order, con) 'Starts a connection with MySQL to executes the code above (called order).
            datareader = cmd.ExecuteReader 'Executes the code above
            MessageBox.Show("Saved") 'If the execution was performed without any error then a messagebox will pop up saying "saved", indicating the new score has been updated.
            con.Close() 'Close the connection with MySQL

        Catch ex As MySqlException 'if there is any error or exeption in the "try" section and things didn't go the way it was expected, this line of code will absorb it and print error in this case
            MessageBox.Show("Error") 'show a messagebox saying error if something goes wrong in the Try process

        Finally
            con.Dispose() 'Disposes of any sort of connection there might have been with MySQL
        End Try
        ExamTopicSelectionPage.Show() 'Opens or unhides or shows the ExamTopicSelectionPage
        Me.Close() 'Closes the current page.

    End Sub

    Private Sub QuitButton_Click(sender As Object, e As EventArgs) Handles QuitButton.Click 'If the quit button is pressed
        ExamTopicSelectionPage.Show() 'Opens or unhides or shows the ExamTopicSelectionPage
        Me.Close() 'Closes the current page but nothing gets saved.
    End Sub

    Private Sub OneNoteBtn_Click(sender As Object, e As EventArgs) Handles OneNoteBtn.Click 'If the onenote button is pressed
        Process.Start("onenote.exe") 'Opens OneNote.exe
    End Sub
End Class