Get Keyboard Repeat Delay

'Add a module to your project (In the menu choose Project -> Add Module, Then click Open)
'Insert this code to the module :

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

'Insert the following code to your form:

Private Sub Form_Load()
Dim r As Long
q = SystemParametersInfo(SPI_GETKEYBOARDDELAY, 0, r, 0)
MsgBox "Keyboard Repeat Delay = " & r & " Seconds"
End Sub

Go Back