FIX: Cannot Programmatically Select Items in ListView

MORE INFORMATION

Steps to Reproduce

1. Start Visual Basic 4.0, or select New Project from the File menu if it is already running.
2. Add Command button and Listview controls to the default Form1.
3. Add the following code to Form1:

       Private Sub Form_Load()
          Dim itmX As ListItem
          Dim i As Integer
   
          For i = 1 To 10
              Set itmX = ListView1.ListItems.Add(, , CStr(i))
          Next i
       End Sub
   
       Private Sub Command1_Click()
          ListView1.ListItems(5).Selected = True
          MsgBox "Index of selected item is " & ListView1.SelectedItem.Index
       End Sub
   
   						

4. Press F5 to start the application. Click once on the Command button and see that the message box displays the index of the selected item as 1, despite the fact that it was set to 5 by the previous line of code.
5. Change the code in the Command1_Click event to the following to fix the problem:

       Private Sub Command1_Click()
          Dim item As ListItem
   
          Set item = ListView1.ListItems(5)
          Set ListView1.SelectedItem = item
   
          MsgBox "Index of selected item is " & ListView1.SelectedItem.Index
       End Sub