DisableHotKeys

Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Const SPI_SCREENSAVERRUNNING = 97
'Scrivere questa routine da richiamare come segue:

HotKeyEnabled False '(per disabilitare)
HotKeyEnabled True '(per abilitare)
Sub HotKeyEnabled (X As Boolean)
Dim ret As Integer
Dim pOld As Boolean
x = Not X
ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, X, pOld, 0)
End Sub