Private Const ES_CONTINUOUS As Integer = &H80000000
    Private Const ES_DISPLAY_REQUIRED As Integer = &H2
    Declare Function SetThreadExecutionState Lib "kernel32.dll" ( _
        ByRef esFlags As Integer _
    ) As Integer
 
    Function DeactivateMonitorStandbyTimer() As Boolean
        Return CBool(SetThreadExecutionState(ES_CONTINUOUS Or _
          ES_DISPLAY_REQUIRED))
    End Function
 
    Function ActivateMonitorStandbyTimer() As Boolean
        Return CBool(SetThreadExecutionState(ES_CONTINUOUS))
    End Function