Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
Static Mémo As Long ' Static pour qu'elle garde sa valeur entre deux exécutions du code
If Abs(GetTickCount - Mémo) < 300 Then ' C'est un double click ... End If
Mémo = GetTickCount