Best Double Click method....

[Unseen Machine]

Code: (Select All)

Do

    mouse clkcnt, lb

    If clkcnt = 2 Then Sound 1000, .1

Loop



Sub mouse (clkcnt, lb)

    Static z1

    While _MouseInput: Wend

    If z1 Then If Abs(Timer - z1) > .25 Then z1 = 0: clkcnt = 0

    If lb = 2 Then lb = 0 ' Click cycle completed.

    If lb = 1 And _MouseButton(1) = 0 Then lb = 2 ' Button released.

    If lb = -1 Then lb = 1 ' Button held down.

    If lb = 0 Then lb = _MouseButton(1)

    If lb = -1 Then z1 = Timer: clkcnt = clkcnt + 1: Locate 1, 1: Print "Click Count ="; clkcnt; "  ";

End Sub

Pete

Damn Pete, WEND! SOUND! Showing ones age there aint ya! Thanks though, I appreciate it even though its only for one button and doesn't have a specific time limit option for a double click as a parameter...it acceptable!

John (Sorry for being cheeky sir!)