How to get the Keyboard repeat delay

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

Posted on January 5, 2009

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

Option Explicit
 
Public Const SPI_GETKEYBOARDDELAY = 22
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_GETKEYBOARDDELAY, 0, r, 0)
    MsgBox "Keyboard Repeat Delay = " & r & " Seconds"
End Sub