11-01-2022, 12:42 PM
Like this:
Code: (Select All)
Do
While _MouseInput: Wend
mx = _MouseX: my = _MouseY: mb = _MouseButton(1)
If mb Then saveMx = mx: saveMy = my
Cls
Print mx, my
Print "Movements:"; mx - saveMx; my - saveMy
_Display
_Limit 30
Loop
b = b + ...