DisabHotKeys

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)

'oppure HotKeyEnabled True (per abilitare)

Sub HotKeyEnabled (x As Boolean)
Dim ret As Integer
Dim pOld As Boolean
ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, x, ZpOld, 0)
End Sub