Dim Lv As System.Windows.Forms.Listview = CType(e.sender.basecontrol, System.Windows.Forms.Listview)
Dim Item As System.Windows.Forms.ListViewItem = Lv.GetItemAt(e.X, e.Y)
If Item IsNot Nothing Then
Dim sb As System.Windows.Forms.ListViewItem.ListViewSubItem = item.GetSubItemAt(e.X, e.Y)
msgbox("行号=" & Item.index & ",列=" & sb.name)
End If