How to get the Keyboard repeat rate

Home » System & API » How to get the Keyboard repeat rate

Posted on January 5, 2009

'System & API - How to get the Keyboard repeat rate

Option Explicit
 
Public Const SPI_GETKEYBOARDSPEED = 10
Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
    (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
 
Private Sub Main()
    Dim r As Long
    Call SystemParametersInfo(SPI_GETKEYBOARDSPEED, 0, r, 0)
    MsgBox "Keyboard Repeat rate = " & r & " characters per second."
End Sub