Private Declare Function SystemParametersInfo Lib "user32" Alias _    "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _    ByRef lpvParam As Any, ByVal fuWinIni As Long) As LongConst SPI_GETLOWPOWERTIMEOUT = 79Const SPI_GETPOWEROFFTIMEOUT = 80Const SPI_GETLOWPOWERACTIVE = 83Const SPI_GETPOWEROFFACTIVE = 84' retreive current settings of Power-off and low-power features' for the screen saver'' POWEROFFACTIVE tells whether the power-off phase of screen saving is enabled.' POWEROFFTIMEOUT returns the timeout in seconds of the power-off feature' LOWPOWERACTIVE tells whether the low-power phase of screen saving is enabled.' LOWPOWERTIMEOUT returns the timeout in seconds of the low-power feature'' Power-off and low-power features are supported under Win95 only for 16-bit ' apps,' under Win98 for both 16- and 32-bit apps, and only for 32-bits apps under ' Win2000Sub GetPowerInfo(PowerOffActive As Boolean, PowerOffTimeout As Long, _    LowPowerActive As Boolean, LowPowerTimeout As Long)    Dim ok As Long    ' get Power-off flag, move in output variable    SystemParametersInfo SPI_GETPOWEROFFACTIVE, 0, ok, 0    PowerOffActive = CBool(ok)    ' get Power-off timeout    SystemParametersInfo SPI_GETPOWEROFFTIMEOUT, 0, PowerOffTimeout, 0    ' get Low-Power flag, move in output variable    SystemParametersInfo SPI_GETLOWPOWERACTIVE, 0, ok, 0    LowPowerActive = CBool(ok)    ' get Low-power timeout    SystemParametersInfo SPI_GETLOWPOWERTIMEOUT, 0, LowPowerTimeout, 0End Sub