Timer sur un clic. - Ou comment se prendre la tête en VB..

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const GWL_WNDPROC = (-4)
Private Const WM_LBUTTONDOWN = &H201
Dim oldProc As Long
Public Sub Subclass(m_hWnd As Long)
    oldProc = SetWindowLong(m_hWnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub
Public Sub UnSubclass(m_hWnd As Long)
    SetWindowLong m_hWnd, GWL_WNDPROC, oldProc
End Sub
Public Function WindowProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    WindowProc = CallWindowProc(oldProc, hwnd, uMsg, wParam, lParam)
    If uMsg = WM_LBUTTONDOWN Then
        Call ProcessClick
    End If
End Function

Private Function TimerFonction(ByVal duree As Long)
Dim fin As Boolean
    
    fin = duree = 0
    Do While Not fin
        fin = Timer > debut + duree
        DoEvents ' Passe le contrôle à d'autres processus.
    Loop
    TimerFonction = Timer - debut ' Durée totale.
    
End Function

Private Sub ProcessClick()
Dim R As Long
    
    debut = Timer
    R = TimerFonction(3) '= 3 secondes...
    If R >= 3 And debut > 0 Then
        MsgBox "Pour séléctionner, veuillez faire un double clic sur l'adresse souhaitée." 'puisque le temps imparti au double clic est dépassé
    Else
        Exit Sub
    End If
    
End Sub

Private Sub DataGridAdr_DblClick()
    
    debut = 0
    R = TimerFonction(0)
    On Error Resume Next
    
    'Effacer_Adresse
    'With DataGridAdr
    '    LblNumDossier.Caption = .Columns(0).Value
    '    CboTypeAdr.Text = .Columns(1).Value
    '    TxtRueAdr.Text = .Columns(2).Value
    '    TxtCPAdr.Text = .Columns(3).Value
    '    TxtVilleAdr.Text = .Columns(4).Value
    '    CboPaysAdr.Text = .Columns(5).Value
    '    LblNumAdr.Caption = .Columns(6).Value
    'End With
    
End Sub

Private Sub Form_Load()
    Call Subclass(Text1.hwnd)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Call UnSubclass(Text1.hwnd)
End Sub