' Education.vb : credentials and continuing study

Public Class Qualification
    Public Property Degree As String
    Public Property Institution As String
    Public Property Year As Integer
    Public Property Detail As String
End Class

Public Class Education
    Public ReadOnly Property Qualifications As New List(Of Qualification) From {
        New Qualification With {
            .Degree = "Postgraduate Diploma in Digital Marketing",
            .Institution = "Digital Marketing Institute",
            .Year = 2019,
            .Detail = "Distinction"
        },
        New Qualification With {
            .Degree = "Master of Business Administration",
            .Institution = "University of Wales",
            .Year = 2010,
            .Detail = "Strategic Management"
        }
    }

    Public ReadOnly Property Certifications As String() = {
        "Certified Digital Marketing Professional",
        "Adobe After Effects & Premiere CC Editor",
        "Microsoft Certified: Azure Fundamentals",
        "Google Analytics Certified",
        "Advanced SEO Specialist"
    }

    Public Function MostRecent() As Integer
        Return Qualifications.Max(Function(q) q.Year)  ' → 2019
    End Function
End Class