Dim power As PowerStatus = SystemInformation.PowerStatus
            Dim percent As Single = power.BatteryLifePercent
            Dim TimeRemaining As Integer = power.BatteryLifeRemaining.ToString
            MsgBox("Percent battery life remaining: " & (percent * 100) & _
              vbCrLf & "Seconds remaining: " & TimeRemaining)