Option
Explicit
Private
m_dtmLMBDown
As
Variant
Private
Sub
Chart_MouseDown(
ByVal
Button
As
Long
,
ByVal
Shift
As
Long
,
ByVal
x
As
Long
,
ByVal
y
As
Long
)
m_dtmLMBDown = Application.Evaluate(
"NOW()"
)
End
Sub
Private
Sub
Chart_MouseUp(
ByVal
Button
As
Long
,
ByVal
Shift
As
Long
,
ByVal
x
As
Long
,
ByVal
y
As
Long
)
Dim
dtm
As
Date
: dtm = Application.Evaluate(
"NOW()"
)
If
IsEmpty(m_dtmLMBDown)
Then
Exit
Sub
If
Button <> XlMouseButton.xlPrimaryButton
Then
Exit
Sub
If
dtm - m_dtmLMBDown <= 0.0000018
Then
Debug.Print Time$;
" Click event"
End
If
m_dtmLMBDown = Empty
End
Sub