Private 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 Const SPI_GETKEYBOARDDELAY = 22 Const SPI_GETKEYBOARDSPEED = 10
Sub GetKeyboardRepeatInfo(Delay As Long, Speed As Long) SystemParametersInfo SPI_GETKEYBOARDDELAY, 0, Delay, 0 SystemParametersInfo SPI_GETKEYBOARDSPEED, 0, Speed, 0 End Sub |