'Este es el ejemplo para desactivar las teclas de escape
'pero ya te envie un ejemplo Proyect a tu mail
Private 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_SCREENSAVERRUNNING = 97&
'-----------------------------------
Private Sub Command1_Click()
'Este Command1 es para desactivar
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1&, 0&, 0&)
End Sub
Private Sub Command2_Click()
'Este Command2 es Activar
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0&, 0&, 0&)
End Sub