Public Class frmGradeApp

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

    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As _
        System.EventArgs) Handles btnExit.Click

        Me.Close()
    End Sub

    Private Sub mnuFileExit_Click(ByVal sender As System.Object, ByVal e _
        As System.EventArgs) Handles mnuFileExit.Click

        Me.Close()
    End Sub

    Private Sub mnuCourseAddCourse_Click(ByVal sender As System.Object, ByVal e _
        As System.EventArgs) Handles mnuCourseAddCourse.Click

        Me.Visible = False
        frmAddCourse.Show()

    End Sub

End Class

Public Class User

    Private m_UserName As String
    Private m_Password As String
    Private Shared m_InstanceCount As Integer = 0

    Public Sub New()

        m_UserName = ("Empty")
        m_Password = ("Empty")
        m_InstanceCount += 1

    End Sub

    Public Sub New(ByVal p_UserName As String, ByVal p_Password As String)

        Me.UserName = p_UserName
        Me.Password = p_Password
        m_InstanceCount += 1

    End Sub

    Public Shared ReadOnly Property InstanceCount() As Integer
        Get

            Return m_InstanceCount

        End Get
    End Property

    Public Property UserName() As String
        Get
            Return m_UserName
        End Get
        Set(ByVal value As String)
            m_UserName = value
        End Set
    End Property

    Public Property Password() As String
        Get
            Return m_Password
        End Get
        Set(ByVal value As String)
            m_Password = value
        End Set
    End Property

    Public Overrides Function ToString() As String

        Return m_UserName & ", " & m_Password
    End Function

End Class

Public Class Student
    Inherits User

    Private m_FirstName As String
    Private m_LastName As String
    Private m_BirthDate As Date
    Private m_ID As Integer

    Public Sub New(ByVal p_UserName As String, ByVal p_Password As String, _
        ByVal p_FirstName As String, ByVal p_LastName As String, ByVal p_Id _
        As Integer, Optional ByVal p_BirthDate As Date = #1/1/1900#)

        MyBase.New()
        m_FirstName = p_FirstName
        m_LastName = p_LastName
        m_ID = p_Id
        m_BirthDate = p_BirthDate

    End Sub

    Public Property ID() As Integer
        Get
            Return m_ID
        End Get
        Set(ByVal value As Integer)
            ' Error Catch to ensure data entered is correct.

            If IsNumeric(value) Then
                m_ID = value
            Else
                Throw New Exception()
            End If
        End Set
    End Property

    Public Property FirstName() As String
        Get
            Return m_FirstName
        End Get
        Set(ByVal value As String)
            m_FirstName = value
        End Set
    End Property

    Public Property LastName() As String
        Get
            Return m_LastName
        End Get
        Set(ByVal value As String)
            m_LastName = value
        End Set
    End Property


    Public Property BirthDate() As Date
        Get
            Return m_BirthDate
        End Get
        Set(ByVal value As Date)
            m_BirthDate = value
        End Set
    End Property

End Class

Public Class Course

    Private m_CourseName As String
    Private m_CourseType
    Private m_CourseInstructor
    Private m_StudentList

    Public Sub New()

        m_CourseName = ("Empty")
        m_CourseType = ("Empty")
        m_CourseInstructor = ("Empty")
        m_StudentList = ("Empty")

    End Sub

    Public Sub New(ByVal p_CourseName As String, ByVal p_CourseType As String, _
    ByVal p_CourseInstructor As String, ByVal p_StudentList As String)

        m_CourseName = p_CourseName
        m_CourseType = p_CourseType
        m_CourseInstructor = p_CourseInstructor
        m_StudentList = p_StudentList

    End Sub
End Class



Public Class frmAddCourse

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

    End Sub

    Private Sub btnCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreate.Click


    End Sub
End Class