In un modulo 
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Const SPI_GETMOUSESPEED  = 112
Public Const SPI_SETMOUSESPEED  = 113


Per verificare la velocita del mouse 
Dim Speed As Long
SystemParametresInfo SPI_GETMOUSESPEED,0,Speed,0
MsgBox "Velocita del mouse:" & Speed


Per impostare la velocita del mouse 
Dim Speed As Long
Speed = 20
SystemParametresInfo SPI_SETMOUSESPEED,0,ByVal Speed,0


Ciao by gius