'****VB6****
Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As _
  Single, y As Single)
Dim itm As ListItem
Set itm = ListView1.HitTest(x, y)
 
'****VB 2008****
Private Sub lvwZeit2_MouseDown(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs) Handles lvwZeit2.MouseDown
        Dim itm As ListViewItem
        itm = lvwZeit.HitTest(x, y)