ListView - Sorting: Does index # change

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?

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!

Code:

---

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

---