Form1

Public Class Form1
    Dim Grade_Set As New Main.Grades
    Dim Cert As New Main.Certificate

    Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
        SaveData()
        Cert.CheckDetails()
        Cert.Calculate()
        Cert.GradeCalculate()
    End Sub

    Private Sub brnPrint_Click(sender As Object, e As EventArgs) Handles brnPrint.Click
        CheckPaid()
        Cert.PayCheck()
    End Sub

    Private Sub btnHelp_Click(sender As Object, e As EventArgs) Handles btnHelp.Click
        HelpMessage()
        CheckResult()
    End Sub
    Private Sub SaveData()

        Cert.StudentName = txtStName.Text
        Cert.Company = txtCmName.Text
        Cert.CourseDate = dtpCourse.Text

        Cert.CheckTests(0, cboTest1.Text)
        Cert.CheckTests(1, cboTest2.Text)
        Cert.CheckTests(2, cboTest3.Text)
        Cert.CheckTests(3, cboTest4.Text)
        Cert.CheckTests(4, cboTest5.Text)
        Cert.CheckTests(5, cboTest6.Text)
        Cert.CheckTests(6, cboTest7.Text)
        Cert.CheckTests(7, cboTest8.Text)
        Cert.CheckTests(8, cboTest9.Text)
    End Sub
    Public Sub HelpMessage()
        Cert.Result = MessageBox.Show("Important!", "If you leave this page your data may be lost.", MessageBoxButtons.YesNo)
    End Sub
    Public Sub CheckResult()
        If Cert.Result = DialogResult.No Then

        ElseIf Cert.Result = DialogResult.Yes Then
            SwapForm()
        End If
    End Sub
    Public Sub SwapForm()
        Me.Hide()
        Help.Show()
    End Sub
End Class