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 5
        ListView1.ColumnHeaders.Add , , i
    Next i
    For i = 1 To 5
        Set myItem = ListView1.ListItems.Add(, , i)
        For n = 1 To 4
            myItem.SubItems(n) = n + 1
        Next n
    Next i
End Sub
 
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    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 > 0 Then
                iX = iX - .Item(i).Width
            Else
                Exit For
            End If
        Next i
    End With
    Spalte = i
End Function
 
Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As _
  Single, y As Single)
    intX = x
    intY = y
End Sub