Private Declare Function SetThreadExecutionState Lib "kernel32" (ByVal esflags _
  As Any) As Long
 
 
'#define ES_SYSTEM_REQUIRED  ((DWORD)0x00000001)
'#define ES_DISPLAY_REQUIRED ((DWORD)0x00000002)
'#define ES_USER_PRESENT     ((DWORD)0x00000004)
'#define ES_CONTINUOUS       ((DWORD)0x80000000)
 
Const ES_SYSTEM_REQUIRED As Long = &H1
Const ES_DISPLAY_REQUIRED As Long = &H2
Const ES_USER_PRESENT     As Long = &H4
Const ES_CONTINUOUS       As Long = &H80000000

Gru?

Ralf