[RESOLVED] [2005] Turn off Key Repeat Delay

[Vectris]

According to that "any" should be type Integer. It only includes the declarations though, I can't find any other code to actually do anything, so I took the rest code from the 6.0 topics and when I called the function, nothing happened.

Here's what I tried:

    Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Integer, ByVal fuWinIni As Long) As Long
    Const SPI_SETKEYBOARDDELAY As Long = 23
    Const SPI_SETKEYBOARDSPEED As Long = 11
    Const SPIF_SENDWININICHANGE As Long = &H2
    Private Const SPIF_SENDCHANGE = 1
    Const SPIF_UPDATEINIFILE As Long = &H1

    Public Function SetKeyBoardDelay(ByVal NewDelay As Long) As Boolean
        'PASS A VALUE BETEEN 0 AND 3.  0 for the SHORTEST DELAY
        '(ABOUT 250 ms) 3 for the longset (ABOUT 1 sec)

        Dim Retcode As Long
        Dim dummy As Long
        dummy = 0

        Retcode = SystemParametersInfo(SPI_SETKEYBOARDDELAY, NewDelay, dummy, SPIF_SENDCHANGE)

        SetKeyBoardDelay = (Retcode > 0)
    End Function

Any other ideas?