Is there any way to adjust mouse sensitivity?

That code needs some fixing, when you alter sensitivity to less than one you can only move the mouse in a small square

; Title



AppTitle "Mouse Sensitivity"





; Graphics



Graphics 640, 480, 16, 1



SetBuffer BackBuffer()







; Global Mouse



Global mouse_x = 320, mouse_y = 240, mouse_sens# = 2.0



MoveMouse mouse_x, mouse_y



HidePointer : Color 0, 255, 0







; Main Program



While KeyHit(1) = False





; Mouse Sensitivity



mouse_x = mouse_x + (MouseXSpeed() * mouse_sens#)

mouse_y = mouse_y + (MouseYSpeed() * mouse_sens#)

; eB makes an alternation

MoveMouse(200,200)
MouseXSpeed()
MouseYSpeed()

; Move Mouse Inside Screen



If mouse_x < 10 Then mouse_x = 10

If mouse_y < 10 Then mouse_y = 10



If mouse_x > 630 Then mouse_x = 630

If mouse_y > 470 Then mouse_y = 470





; Change Mouse Sensitivity


; Altered to keyhit
If KeyHit(203) Then mouse_sens# = mouse_sens# - 0.1

If KeyHit(205) Then mouse_sens# = mouse_sens# + 0.1

If KeyDown(203) Then
	x1=x1+1
Else
	x1=0
End If

If KeyDown(205) Then
	y1=y1+1
Else
	y1=0
End If

If x1>=30 Then
	mouse_sens = mouse_sens -.1
	x1=23
End If

If y1>=30 Then
	mouse_sens = mouse_sens +.1
	y1=23
End If

If mouse_sens# < 0.1 Then mouse_sens# = 0.1

If mouse_sens# > 10.0 Then mouse_sens# = 10.0







; Clear Screen



Cls







; Draw Mouse



Text mouse_x - 2, mouse_y - 2, "* "





; Text Sensitivity



Text 320, 32, "Mouse Sensitivity " + mouse_sens#, 1





; Flip



Flip









; End Program



Wend