Public Class Front

    Dim PS As Integer 'Player Score
    Dim QN As Integer 'Question Number

    Private Sub Front_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Load Application

        NG.Enabled = True 'New Game
        LB.Enabled = True 'Leaderboard
        SB.Enabled = False 'Submit
        QI.Enabled = False 'Question Indicator
        QB.Enabled = False 'Question Box
        SI.Enabled = False 'Score Indicator
        RS.Enabled = False 'Restart

        A1.Enabled = False 'Answer 1
        A2.Enabled = False 'Answer 2
        A3.Enabled = False 'Answer 3
        A4.Enabled = False 'Answer 4

        NG.Text = "New Game"
        SB.Text = "Submit"
        RS.Text = "Reload Quiz"
        LB.Text = "Leaderboard"
        QI.Text = ""
        QB.Text = ""
        SI.Text = ""

        A1.Text = ""
        A2.Text = ""
        A3.Text = ""
        A4.Text = ""

    End Sub

    Private Sub NG_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NG.Click

        QN = 1 'Question Number
        PS = 0 'Player Score

        QI.Text = "Question No. " & QN & "."
        SI.Text = "Your score is " & PS & "."

        NG.Enabled = False 'New Game
        LB.Enabled = False 'Leaderboard
        SB.Enabled = True 'Submit
        QI.Enabled = False 'Question Indicator
        QB.Enabled = False 'Question Box
        SI.Enabled = False 'Score Indicator
        RS.Enabled = True 'Restart

        A1.Enabled = True 'Answer 1
        A2.Enabled = True 'Answer 2
        A3.Enabled = True 'Answer 3
        A4.Enabled = True 'Answer 4

        A1.Checked = False 'Answer 1
        A2.Checked = False 'Answer 2
        A3.Checked = False 'Answer 3
        A4.Checked = False 'Answer 4

        QB.Text = "Paracetamol falls into what classification of pharmaceutical?"
        A1.Text = "Muscle relaxant"
        A2.Text = "NSAID"
        A3.Text = "Hypnotic"
        A4.Text = "Analgesic"

    End Sub

    Private Sub RS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RS.Click

        'Restart

        NG.Enabled = True 'New Game
        LB.Enabled = True 'Leaderboard
        SB.Enabled = False 'Submit
        QI.Enabled = False 'Question Indicator
        QB.Enabled = False 'Question Box
        SI.Enabled = False 'Score Indicator
        RS.Enabled = False 'Restart

        A1.Enabled = False 'Answer 1
        A2.Enabled = False 'Answer 2
        A3.Enabled = False 'Answer 3
        A4.Enabled = False 'Answer 4

        NG.Text = "New Game"
        SB.Text = "Submit"
        RS.Text = "Reload Quiz"
        LB.Text = "Leaderboard"
        QI.Text = ""
        QB.Text = ""
        SI.Text = ""

        A1.Text = ""
        A2.Text = ""
        A3.Text = ""
        A4.Text = ""

    End Sub

    Private Sub SB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SB.Click

        'Submit

        QI.Text = "Question No. " & QN & "."
        SI.Text = "Your score is " & PS & "."

        A1.Enabled = True
        A2.Enabled = True
        A3.Enabled = True
        A4.Enabled = True

        If QN = 0 Then
            QN = 1
        End If

        If QN = 1 Then
            If A4.Checked = True Then
                PS = (PS + 1)
                MsgBox("Correct")
            Else
                MsgBox("Incorrect")
            End If
        ElseIf QN = 2 Then
            If A1.Checked = True Then
                PS = (PS + 1)
                MsgBox("Correct")
            Else
                MsgBox("Incorrect")
            End If
        ElseIf QN = 3 Then
            If A3.Checked = True Then
                PS = (PS + 1)
                MsgBox("Correct")
            Else
                MsgBox("Incorrect")
            End If
        ElseIf QN = 4 Then
            If A3.Checked = True Then
                PS = (PS + 1)
                MsgBox("Correct")
            Else
                MsgBox("Incorrect")
            End If
        ElseIf QN = 5 Then
            If A1.Checked = True Then
                PS = (PS + 1)
                MsgBox("Correct")
            Else
                MsgBox("Incorrect")
            End If
        ElseIf QN = 6 Then
            If A2.Checked = True Then
                PS = (PS + 1)
                MsgBox("Correct")
            Else
                MsgBox("Incorrect")
            End If
        ElseIf QN = 7 Then
            If A4.Checked = True Then
                PS = (PS + 1)
                MsgBox("Correct")
            Else
                MsgBox("Incorrect")
            End If
        ElseIf QN = 8 Then
            If A3.Checked = True Then
                PS = (PS + 1)
                MsgBox("Correct")
            Else
                MsgBox("Incorrect")
            End If
        ElseIf QN = 9 Then
            If A1.Checked = True Then
                PS = (PS + 1)
                MsgBox("Correct")
            Else
                MsgBox("Incorrect")
            End If
        ElseIf QN = 10 Then
            If A3.Checked = True Then
                PS = (PS + 1)
                MsgBox("Correct")
            Else
                MsgBox("Incorrect")
            End If
        ElseIf QN = 11 Then
            If A1.Checked = True Then
                PS = (PS + 1)
                MsgBox("Correct")
            Else
                MsgBox("Incorrect")
            End If
        ElseIf QN = 12 Then
            If A2.Checked = True Then
                PS = (PS + 1)
                MsgBox("Correct")
            Else
                MsgBox("Incorrect")
            End If
        ElseIf QN = 13 Then
            If A4.Checked = True Then
                PS = (PS + 1)
                MsgBox("Correct")
            Else
                MsgBox("Incorrect")
            End If
        ElseIf QN = 14 Then
            If A2.Checked = True Then
                PS = (PS + 1)
                MsgBox("Correct")
            Else
                MsgBox("Incorrect")
            End If
        ElseIf QN = 15 Then
            If A3.Checked = True Then
                PS = (PS + 1)
                MsgBox("Correct")
            Else
                MsgBox("Incorrect")
            End If

        End If

        If QN = 1 Then
            QB.Text = "Paracetamol falls into what classification of pharmaceutical?"
            A1.Text = "Muscle relaxant" 'Incorrect'
            A2.Text = "NSAID" 'Incorrect'
            A3.Text = "Hypnotic" 'Incorrect'
            A4.Text = "Analgesic" 'Correct'
        ElseIf QN = 2 Then
            QB.Text = "Paracetamol can both heal and harm the human body. When taken in excess which organ will become its primary target?"
            A1.Text = "Liver" 'Correct'
            A2.Text = "Kidney" 'Incorrect'
            A3.Text = "Heart" 'Incorrect'
            A4.Text = "Stomach" 'Incorrect'
        ElseIf QN = 3 Then
            QB.Text = "Robotripping refers to taking what legal substance to achieve a high?"
            A1.Text = "Guaifenesin" 'Incorrect'
            A2.Text = "Echinacea" 'Incorrect'
            A3.Text = "Dextromethorphan" 'Correct'
            A4.Text = "Benzonatate" 'Incorrect'
        ElseIf QN = 4 Then
            QB.Text = "Which of the four following pharmaceuticals is a non-steroidal anti-inflammatory disguised as a analgesic?"
            A1.Text = "Tramadol" 'Incorrect'
            A2.Text = "Codeine" 'Inorrect'
            A3.Text = "Voltarol." 'Correct'
            A4.Text = "Pethidine." 'Incorrect'
        ElseIf QN = 5 Then
            QB.Text = "A vaccination is the administration of what kind of material into the body?"
            A1.Text = "Antigenic." 'Correct'
            A2.Text = "Pathogenic" 'Incorrect'
            A3.Text = "Steroidal" 'Incorrect'
            A4.Text = "Hormonal" 'Incorrect'
        ElseIf QN = 6 Then
            QB.Text = "The primary medical use for Alkyl Nitrates (Poppers) is as an antidote for what illness?"
            A1.Text = "Trigeminal Neuralgia" 'Incorrect'
            A2.Text = "Cyanide Poisoning" 'Correct
            A3.Text = "Fungal Infection" 'Incorrect'
            A4.Text = "HIV" 'Incorrect'
        ElseIf QN = 7 Then
            QB.Text = "Selective Serotonin Reputake Inhibitors (SSRIs) are commonly used to treat depression. Which of the following pharmaceuticals is not an SSRI?"
            A1.Text = "Fluoxetine" 'Incorrect'
            A2.Text = "Citalopram" 'Incorrect'
            A3.Text = "Sertraline" 'Incorrect'
            A4.Text = "Amitriptyline" 'Correct'
        ElseIf QN = 8 Then
            QB.Text = "Freezing of the larnyx is a danger assioassicated with what drug?"
            A1.Text = "Pethidine" 'Incorrect'
            A2.Text = "Tobacco" 'Incorrect'
            A3.Text = "Solvent" 'Correct'
            A4.Text = "Alcohol" 'Incorrect'
        ElseIf QN = 9 Then
            QB.Text = "The difference between coated and uncoated tablets is there absorption site. Coated tablets are absorbed in what section of the digestive tract"
            A1.Text = "Duodenum" 'Correct'
            A2.Text = "Stomach" 'Incorrect'
            A3.Text = "Ileum" 'Incorrect'
            A4.Text = "Rectum" 'Incorrect
        ElseIf QN = 10 Then
            QB.Text = "Diabetes is a degenerative disease that affects a bodies ability to maintain an equilibrium within its blood sugar. Those who suffer from this disease have to inject what pharmaceutical to help stablize their blood sugar levels?"
            A1.Text = "Penicillin" 'Incorrect'
            A2.Text = "Methadone" 'Incorrect'
            A3.Text = "Insulin" 'Correct'
            A4.Text = "Warfarin" 'Incorrect'
        ElseIf QN = 11 Then
            QB.Text = "A ten bag is commonly used to refer to how much of what drug?"
            A1.Text = " Approx. £10 worth of Marijuana." 'Correct'
            A2.Text = " Approx. £10 worth of Cocaine." 'Incorrect'
            A3.Text = " Approx. £10 worth of LSD." 'Incorrect'
            A4.Text = " Approx. £10 worth of M-CAT." 'Incorrect'
        ElseIf QN = 12 Then
            QB.Text = "A person tells you he/she is 'amped.' This means they have taken what class of drug?"
            A1.Text = " Depressant." 'Incorrect'
            A2.Text = " Stimulant." 'Correct'
            A3.Text = " Psychedelic." 'Incorrect'
            A4.Text = " Analgesic." 'Incorrect'
        ElseIf QN = 13 Then
            QB.Text = "What is the slang term for Marijuana laced with Cocaine?"
            A1.Text = " Crystal Stick." 'Incorrect'
            A2.Text = " Marrowcane." 'Incorrect'
            A3.Text = " Snap Dragon." 'Incorrect'
            A4.Text = " Banano." 'Correct'
        ElseIf QN = 14 Then
            QB.Text = "If an individual was to ‘flip candy’ what two drugs would they be taking to achieve this?"
            A1.Text = " Marijuana and Magic Mushrooms." 'Incorrect'
            A2.Text = " LSD and MDMA." 'Correct'
            A3.Text = " Heroin and DMT." 'Incorrect'
            A4.Text = " Cocaine and Speed." 'Incorrect'
        ElseIf QN = 15 Then
            QB.Text = "All street drugs have slang names that are frequently used and passed around, which of these slang names refers to Ecstasy?"
            A1.Text = " Mushies." 'Incorrect'
            A2.Text = " Bob Hope." 'Incorrect'
            A3.Text = " Dolphins." 'Correct'
            A4.Text = " Jellies." 'Incorrect'
        End If

        QN = (QN + 1)

    End Sub

    Private Sub LB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LB.Click

        'Leaderboard

    End Sub
End Class