VB Code:
Private Sub ListView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Static t As Single
Static itm As ListItem
'ok the following test could be done better
'You could use GetTickCount istead of the Timer function
'and you can use the APIs to get the correct double click speed
If Timer - t < 0.5 Then
If Not ListView1.HitTest(x, y) Is Nothing Then
If Not itm Is Nothing Then
If itm Is ListView1.HitTest(x, y) Then
'Double Click has occured!
MsgBox "Double Click"
End If
End If
End If
End If
t = Timer
Set itm = ListView1.HitTest(x, y)
End Sub