FIX: Multiselect with ListView Causes Lost Mouse Events

MORE INFORMATION

Steps to Reproduce

1. Start Visual Basic 4.0. Form1 is created by default.
2. Add a single ListView control to the form.
3. Set this property of the ListView control:

   MultiSelect: True

4. Add this code to Form1:

      Private Sub Form_Load()
          Dim lv As ListItem
          Dim i As Integer
   
          For i = 1 To 10
              Set lv = ListView1.ListItems.Add(, , "Item " & i)
          Next i
      End Sub
   
      Private Sub ListView1_Click()
          Debug.Print "ListView1_Click"
      End Sub
   
      Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, _
        x As Single, y As Single)
          Debug.Print "ListView1_MouseDown"
      End Sub
   
      Private Sub ListView1_MouseUp(Button As Integer, Shift As Integer, _
      x As Single, y As Single)
          Debug.Print "ListView1_MouseUp"
      End Sub
   						

5. Press F5 or select Start from the Run menu to run the application. Click on a portion of the ListView control that does not contain a ListItem object. Note that only the MouseDown event is fired.