se "NAME"
      Column.SortType = eLVSortString
      Column.SortOrder = NewSortOrder(Column.SortOrder)
   Case "DATE"
      Column.SortType = eLVSortDate
      Column.SortOrder = NewSortOrder(Column.SortOrder)
   Case "SIZE"
      Column.SortType = eLVSortNumeric
      Column.SortOrder = NewSortOrder(Column.SortOrder)
   End Select
   lvwMain.ListItems.SortItems
End Sub

Private Function NewSortOrder(ByVal SortOrder As ESortOrderConstants) As
 ESortTypeConstants
   Select Case SortOrder
   Case eSortOrderN