Private Declare Function GetSystemPowerStatus Lib "kernel32" ( _
  lpSystemPowerStatus As SYSTEM_POWER_STATUS) As Long
Private Declare Function SetSystemPowerState Lib "kernel32" (ByVal fSuspend As _
Long, ByVal fForce As Long) 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
Private SysPower As SYSTEM_POWER_STATUS
Private OffStatus As Boolean
 
Private Sub Command1_Click()
' Push the PC into standby - the first parameter does nothing
' The second parameter if zero - O/S asks other apps to close down
' if one - O/S shutsdown to standby mode
' You must ensure that you have tidied up open files - network connections etc
' before issuing this call, they will not be there when the application 
' restarts,
' this might wreck your application.
OffStatus = SetSystemPowerState(0, 0)
End Sub
 
Private Sub Form_Load()
' Don't want to anything with this other than to demo the call.
' You can use it to check if your app is running on a portable
' (battery power) or on mains.
GetSystemPowerStatus SysPower
End Sub