Private Sub ListView1_MouseDown(Button As Integer, _
  Shift As Integer, x As Single, y As Single)
 
  Dim itemX As ListItem
 
  itemX = ListView1.HitTest(x, y)
  If Not itemX Is Nothing Then
    Set ListView1.SelectedItem = itemX.Index
  End If
End Sub