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 SubPete