Clasificación automática de elementos en la vista de lista en VB

Sub privado ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)

Si ListView1.ListItems.Count lt 2 Then Exit Sub 'Si hay menos de dos registros, salga de este proceso

ListView1.SortKey = ColumnHeader.SubItemIndex 'Establece la clave de clasificación, ordena por la primera columna en 0, la segunda columna en 1, y así sucesivamente

If Val(ColumnHeader.Tag) = 0 Luego 'Cambio de orden descendente/ascendente

ListView1.SortOrder = lvwDescending

ColumnHeader.Tag = 1

Else

ListView1. SortOrder = lvwAscending

ColumnHeader.Tag = 0

End If

ListView1.Sorted = True 'Permitir ordenar

End Sub