Private Sub ListView1_MouseDown(ByVal sender As System.Object, _
        ByVal e As System.Windows.Forms.MouseEventArgs) _
        Handles ListView1.MouseDown
 
        Dim Item As ListViewItem, i As Integer, intCurLeft As Int16
        Item = ListView1.GetItemAt(4, e.Y)
        If Not Item Is Nothing Then
            For i = 0 To ListView1.Columns.Count - 1
                intCurLeft = intCurLeft + ListView1.Columns(i).Width
                If e.X < intCurLeft Then
                    MsgBox("Item " & Item.Index & ", Spalte " & i)
                    Exit For
                End If
            Next i
        End If
    End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.