Событие dblclick в Toolbar ...как избавиться?

[Rand]

Проблема в следующем:
Как заставить прогу игнорировать второй клик?
ButtonClick иначе срабатывает два раза.
К сожалению, из-за специфики программы ставить метку в самом ButtonClick при "первом" и отбрасывать повторное срабатывание не представляется возможным.

Если кто может посказать - заранее благодарен.

[Amed]

Скажем, так:

Код: Выделить всё

Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
Private oldDelay as Long

Private Sub ClickHandling()
If (GetTickCount-oldDelay)<500 Then Exit Sub
...
...
oldDelay=GetTickCount
End Sub