How to change Mouse Speed

[Brother Gabriel-Marie]

Mr. Wishlaw,  I tried what you sent, and after reading the link you 
sent, I tried this too:

Sub SetMouseSpeed(Speed)
    SystemParametersInfo(SPI_SETMOUSESPEED, 0, (void *)Speed, 0)
    SendNotifyMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 
SPI_SETMOUSESPEED, 0)
End Sub

It compiles, but it just doesn't do anything.
The compiled VB script works, but why can't I get it into BCX?

In my BGMshare folder I have uploaded my ShopMouse project if you or 
anyone would like to look at it.
I have included the VB script as well.

Thanks

Brother Gabriel