Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, _
  x As Single, y As Single)
 
  Dim Item As ListItem, i As Integer
  Set Item = ListView1.HitTest(4 * Screen.TwipsPerPixelX, y)
  If Not Item Is Nothing Then
    For i = ListView1.ColumnHeaders.Count To 1 Step -1
      If x > ListView1.ColumnHeaders(i).Left Then
        MsgBox "Item " & Item.Index & ", Spalte " & i
        Exit For
      End If
    Next i
  End If
End Sub