OR_SUCCESS Then Call Error_API(Err.LastDllError, sLocation & "\Form_Load", "CallNtPowerInformation")
With ADMINISTRATOR_POWER_POLICY
cboMinSystemPowerSleepState.ListIndex = MinMax(.MinSleep, 0, 6)
cboMaxSystemPowerSleepState.ListIndex = MinMax(.MaxSleep, 0, 6)
cboMinVideoTimeout.ListIndex = MinMax(.MinVideoTimeout, 0, 6)
cboMaxVideoTimeout.ListIndex = MinMax(.MaxVideoTimeout, 0, 6)
cboMinSpindownTimeout.ListIndex = MinMax(.MinSpindownTimeout, 0, 6)
cboMaxSpindownTimeout.ListIndex = MinMax(.MaxSpindownTimeout, 0, 6)
End With
Else
lblMinSystemPowerSleepState.Enabled = False
cboMinSystemPowerSleepState.Enabled = False
lblMaxSystemPowerSleepState.Enabled = False
cboMaxSystemPowerSleepState.Enabled = False
lblMinVideoTimeout.Enabled = False
cboMinVideoTimeout.Enabled = False
lblMaxVideoTimeout.Enabled = False
cboMaxVideoTimeout.Enabled = False
lblMinSpindownTimeout.Enabled = False
cboMinSpindownTimeout.Enabled = False
lblMaxSpindownTimeout.Enabled = False
cboMaxSpindownTimeout.Enabled = False
cmdApply.Enabled = False
End If
Exit Sub
VB_Error:
Call Error_VB(Err, sLocation & "\Form_Load")
Resume Next
End Sub