>Joey...
Sergey is right - DoubleClick runs Click first
In Main set glOnceTwice= .F.

*code for SingleClick
    IF glOnceTwice
... Single click routine is not run due to Global Logical OnceTwice= False
    ENDIF
*code for DoubleClick
    glOnceTwice= .T.
... Double click code goes here
    glOnceTwice= .F.

Crude but effective
:~)