Option Explicit
 
Dim intIndex As Integer
Dim intX As Double
Dim intY As Double
 
Private Sub Form_Load()
Dim i As Integer
Dim n As Integer
Dim myItem As ListItem
 
    With ListView1
        .FullRowSelect = True
        .GridLines = True
        .LabelEdit = lvwManual
    End With
 
    For i = 1 To 20
        ListView1.ColumnHeaders.Add , , i
    Next i
    For i = 1 To 20
        Set myItem = ListView1.ListItems.Add(, , i)
        For n = 1 To ListView1.ColumnHeaders.Count - 1
            myItem.SubItems(n) = "Sub " & i & " / " & n + 1
        Next n
    Next i
End Sub
 
Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
    intX = X
    intY = Y
End Sub
 
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim iSp As Integer
    intIndex = Item.Index
    Caption = intIndex & " / " & Spalte(intX)
End Sub
 
Private Function Spalte(ByVal X As Integer) As Integer
Dim i As Integer
Dim iX As Double
    iX = X
    With ListView1.ColumnHeaders
        For i = 1 To .Count
            If iX - .Item(i).Width > ListView1.ListItems(1).Left Then
                iX = iX - .Item(i).Width
            Else
                Exit For
            End If
        Next i
    End With
    Spalte = i
End Function