Private Declare Function GetSystemPowerStatus Lib "kernel32.dll" ( _
   ByRef lpSystemPowerStatus As SYSTEM_POWER_STATUS) As Long
 
Private Type SYSTEM_POWER_STATUS
  ACLineStatus As Byte
  BatteryFlag As Byte
  BatteryLifePercent As Byte
  Reserved1 As Byte
  BatteryLifeTime As Long
  BatteryFullLifeTime As Long
End Type