January 6, 2001

SetKeyboardRepeatInfo – Set values about keyboard auto-repeat feature

‘ set new values for keyboard speed and delay” DELAY is the timeout after which auto.repeat starts’ can range from 0 (250ms) to 3 (1 sec)’ SPEED is the speed of auto-repeat’ can range from 0 (2.5 repetitions/sec) to’ to 31 (about 30 repetitions/sec)’ If MAKEPERMANENT is True, then these

GetKeyboardRepeatInfo – Retrieve information about keyboard auto-repeat feature

Private Declare Function SystemParametersInfo Lib “user32” Alias _ “SystemParametersInfoA” (ByVal uAction As Long, ByVal uParam As Long, _ ByRef lpvParam As Any, ByVal fuWinIni As Long) As LongConst SPI_GETKEYBOARDDELAY = 22Const SPI_GETKEYBOARDSPEED = 10′ retreive current values for keyboard speed and delay” DELAY is the timeout after which auto.repeat starts’

KeysPressed – Test the status of up to three keys

Private Declare Function GetAsyncKeyState Lib “user32″ (ByVal vKey As Long) As _ Integer’ Return True if all the specified keys are pressed” you can specify individual keys using VB constants, ‘ e.g. If KeysPressed(vbKeyControl, vbKeyDown) Then …Function KeysPressed(ByVal KeyCode1 As KeyCodeConstants, _ Optional ByVal KeyCode2 As KeyCodeConstants, Optional ByVal KeyCode3

RLECompress – Compress a block of memory using RLE algorithm

Private Declare Sub CopyMemory Lib “kernel32” Alias “RtlMoveMemory” (dest As _ Any, source As Any, ByVal Bytes As Long)’ compress a block of memory (a string, an array, a bitmap)’ using the RLE compression algorithm” Returns True if the block has been compressed,’ False if the compression would create a

PerformanceTimer – A class module for high-resolution time measurement

‘——————————————-‘ PerformanceTimer class module’——————————————-‘ Use this class to profile your code and any other operation’ typically with a precision greater than 1 millionth of a second” As soon as you create an object, the timer starts’ but you can also start it explicitly with StartTimer’ Stop the timer and retrieve