disableKeys

'API declarations

Declare Function SystemParametersInfo Lib "user32" _
Alias "SystemParametersInfoA" (ByVal _
uAction As Long, ByVal uParam As Long, _
lpvParam As Any, ByVal fuWinIni As Long) As Long
Const SPI_SETSCREENSAVEACTIVE = 97
Sub DisableCAD(bState As Boolean)
Dim x As Long
Dim lngWas As Long
x = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, _
bState, lngWas, 0)
End Sub

'Here's how to use it:

'To disable:

DisableCAD True
'To enable:

DisableCAD False