ListView column index detection

Private LastClickedItem As ListItem
Private LastClickedSubItemIndex As Long

'====================================================================
Private Sub lvNumbers_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Dim TMP As ColumnHeader
  Dim Width As Single

  Set LastClickedItem = Me.lvNumbers.HitTest(X, Y)
  If LastClickedItem Is Nothing Then Exit Sub

  ' Пытаемся понять, на какой столбик пришёлся щелчок...
  For Each TMP In Me.lvNumbers.ColumnHeaders
    Width = Width + TMP.Width
    If X <= Width Then
      LastClickedSubItemIndex = TMP.Index - 1
      Exit For
    End If
  Next TMP
End Sub

Private Sub lvNumbers_DblClick()
  If Not LastClickedItem Is Nothing Then
    MsgBox LastClickedSubItemIndex
  End If
End Sub