Dim Click As Integer
 
Private Sub ListView_MouseDown(...)
Click = e.Clicks
Timer1.Start 'Gib deinem Timer das Sekundeninterval deines DoubleCliks
End Sub
 
Private Sub Timer1_Tick(...)
Timer1.Stop
If Click = 2 Then MeinListViewDoubleClick
If Click = 1 Then MeinListViewClick
End Sub