Public Shared Sub SortByPropertyName(propName As String)
    Dim prop = GetType(Person).GetProperty(propName)
    If prop Is Nothing Then Exit Sub

    If OrderAscending Then
        Person.Persons = Person.Persons.OrderBy(Function(x) prop.GetValue(x, Nothing)).ToList()
    Else
        Person.Persons = Person.Persons.OrderByDescending(Function(x) prop.GetValue(x, Nothing)).ToList()
    End If

    OrderAscending = Not OrderAscending
End Sub