VB 注册表 提高指针精确度

Dim RR As Object, MN As Integer, RegPath

Private Sub Check1_Click()
RegPath = "HKEY_CURRENT_USER\Control Panel\Mouse\"
If Check1.Value = 0 Then
Set RR = CreateObject("WScript.Shell")
RR.RegWrite RegPath & "MouseSpeed", "0"
'RR.RegWrite RegPath & "MouseThreshold1", "0"
'RR.RegWrite RegPath & "MouseThreshold2", "0"
ElseIf Check1.Value = 1 Then
Set RR = CreateObject("WScript.Shell")
RR.RegWrite RegPath & "MouseSpeed", "1"
'RR.RegWrite RegPath & "MouseThreshold1", "6"
'RR.RegWrite RegPath & "MouseThreshold2", "10"
End If
End Sub

无效- -
是不是还更改过了其他键值？
- -那个在控制面板里设都是立即生效的- -我晕哦.

什么是提高指针精确度. 鼠标加速度是指xp里的提高指针精确度，还是cs里另外的一个参数，如何去除？ 谢了！ 怎样提高单反的击球精确度？ 怎样提高光晕中步枪的精确度? VB 什么是指针？ 我想提高我的投篮精确度,那该怎么办啊 是指针式万用表还用电子万用表的精确度高呢？ VB怎样改变鼠标指针 vb中有指针吗？ 如何提高鼠标指针速度？