Const SPI_GETKEYBOARDSPEED = 10
Private 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 Form_Load()
Dim X As Long
Xx = SystemParametersInfo(SPI_GETKEYBOARDSPEED, 0, X, 0)
MsgBox "Скорость повтора - " & X & " символов!"
End Sub |
|