Quaternion Rotation

[bplus]

I work from a laptop and know right away when the CPU is racing around a main loop doing nothing.
_Limit is your friend

Your mouse code is inefficient. Unless you are doing mouse wheel, just poll the Mouse like this:
While _MouseInput: Wend
mx = _MouseX: my = _MouseY: mb (or mb1) = _Mousebutton(1) ' usu. for left side clicking