Détection double click programme externe

bonjour à tous, y-a-t 'il un moyen de détecter un double click dans un programme externe à Excel en VBA svp ?

j'ai essayé plusieurs méthode sur la base de celle-ci, ça fonctionne avec VK_LBUTTON pour un simple click mais pas moyen de faire la même chose avec le double click... Merci d'avance !!! :)

    #If VBA7 Then
    Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" _
            (ByVal vKey As Long) As Integer

#End If
 Const VK_LBUTTON = &H1
 Const WM_NCLBUTTONDBLCLK = &H203

sub test ()
Do Until GetAsyncKeyState(VK_LBUTTON) '-> fonctionne
' Do Until GetAsyncKeyState(WM_NCLBUTTONDBLCLK) ne fonctionne pas
Application.Wait Now + TimeValue("0:00:01")
Loop
end sub