Private nX As Single
Private nY As Single

Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As _
  Single, y As Single)
 
  nX = x: nY = y
End Sub

Private Sub ListView1_DblClick()
  Dim oItem As ListItem
 
  Set oItem = ListView1.HitTest(nX, nY)
  If Not oItem Is Nothing Then
    ...
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de