Imports System.Runtime.InteropServices

Namespace MouseSpeedSwitcher
	Class Program
		Public Const SPI_SETMOUSESPEED As UInt32 = &H71

		<DllImport("User32.dll")> _
		Private Shared Function SystemParametersInfo(uiAction As UInt32, uiParam As UInt32, pvParam As UInt32, fWinIni As UInt32) As [Boolean]
		End Function

		Private Shared Sub Main(args As String())
			SystemParametersInfo(SPI_SETMOUSESPEED, 0, UInteger.Parse(args(0)), 0)
		End Sub
	End Class
End Namespace