If My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Power\PowerSettings", "ActivePowerScheme", Nothing) Is Nothing Then
My.Computer.Registry.CurrentUser.CreateSubKey("PowerSettings")
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Power\PowerSettings", "ActivePowerScheme", "8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c")
End If