Get Keyboard Repeat Rate

'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_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

'Insert the following code to your form:

Private Sub Form_Load()
Dim r As Long
q = SystemParametersInfo(SPI_GETKEYBOARDSPEED, 0, r, 0)
scrRepeatSpeed = r
MsgBox "Keyboard Repeat rate = " & r & " characters per second."
End Sub

Go Back