Public Class AddMarks
    Private Sub okButton_Click(sender As Object, e As EventArgs) Handles okButton.Click
        Me.Close()
    End Sub
    Private Sub AddMarksButton_Click(sender As Object, e As EventArgs) Handles AddMarksButton.Click
        If QuestionIDTextBox.Text <> "" And GradeTextBox.Text <> "" Then
            Database.AddMark(QuestionIDTextBox.Text, GradeTextBox.Text)
            ' calls add mark function and updates the database with the grade achieved
            MsgBox("Marks Successfully Added.") 'shows a message box
        Else
            MsgBox("Please Fill in all Fields") 'shows a message box
        End If
    End Sub
End Class