ListView - Sorting: Does index # change

[Barb4253]

I have a ListView in my project which populates with with all zip files in a selected directory. The user can change the order (ascending/descending) on either column.
Q1...I wish to always have the first file in the list (when reordered) selected. I've tried:
lstMyListView.ListItems(0).Selected = True
but that doesn't work.
Q2...Even the item selected isn't always highlighted, why?

[kedaman]

The index will ofcourse change but not the key or text or any other property
lstMyListView.ListItems(1).Selected = True
shoud do the trick since listitems is option base 1.

Start a new project, add a listview and paste following code. NOTE:this is only sample code. Use any of it when needed, throw the rest overboard

Enjoy!

Private Sub Form_Load()
    Dim I As ListItem
    Dim T As Integer
    
    With ListView1
        
        ' Set some properties
        .AllowColumnReorder = False ' User cannot re-arrange the columns
        .FullRowSelect = True       ' Select complete rows, not just a "cell"
        .GridLines = True           ' Add gridlines
        .HideSelection = False      ' Make sure item is highlighted when lost focus
        .LabelEdit = lvwManual      ' User cannot edit values in columns
        .MultiSelect = False        ' User cannot select multiple rows
        .View = lvwReport           ' View-type
        
        ' Add two columns
        .ColumnHeaders.Add , , "Item Name"
        .ColumnHeaders.Add , , "Item Prize"
        
        ' Right Align Column 2
        .ColumnHeaders(2).Alignment = lvwColumnRight
        
        ' Fill up the list with random data
        For T = 1 To 10
            Set I = .ListItems.Add(, "KEY" & CStr(T), "Item - " & CStr(T))
            I.SubItems(1) = Format(Rnd * 1000, "#0.00")
        Next T
    
        ' Select Item 1
        Set ListView1.SelectedItem = ListView1.ListItems(1)
    End With
    
End Sub

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    With ListView1
        ' Sort ascending or descending?
        If .SortOrder = lvwDescending Then .SortOrder = lvwAscending Else .SortOrder = lvwDescending
        
        ' Which column is the sortkey?
        .SortKey = ColumnHeader.Index - 1
        
        ' Set Sorted to True to start sorting
         .Sorted = True
        
        ' Select Item 1
        Set ListView1.SelectedItem = ListView1.ListItems(1)
    End With
End Sub