Private Sub MyListview_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles MyListview.MouseMove
        Dim Spaltenbereich(lvwView.Columns.Count), i, j As Integer
        Spaltenbereich(0) = 0
        For i = 1 To MyListview.Columns.Count
            j += MyListview.Columns.Item(i - 1).Width()
            Spaltenbereich(i) = j
        Next i
 
        For i = (MyListview.Columns.Count - 1) To 0 Step -1
            If Spaltenbereich(i) <= CType(e.X, Integer) Then
                Me.Text = "Spalte " + CStr(i + 1)
                Return
            End If
        Next
    End Sub