[COLOR=blue]Imports[/color] Microsoft.Win32
[COLOR=blue]Private Sub[/color] HookEventsAdd()
[COLOR=blue]AddHandler[/color] SystemEvents.UserPreferenceChanged, [COLOR=blue]AddressOf[/color] UserPreferenceChanged
[COLOR=blue]AddHandler[/color] SystemEvents.PowerModeChanged, [COLOR=blue]AddressOf[/color] PowerModeChanged
[COLOR=blue]End Sub
Private Sub [/color]HookEventsRemove()
[COLOR=blue]RemoveHandler[/color] SystemEvents.UserPreferenceChanged, [COLOR=blue]AddressOf[/color] UserPreferenceChanged
[COLOR=blue]RemoveHandler[/color] SystemEvents.PowerModeChanged, [COLOR=blue]AddressOf[/color] PowerModeChanged
[COLOR=blue]End Sub
Private Sub [/color]PowerModeChanged([COLOR=blue]ByVal[/color] sender [COLOR=blue]As[/color] System.Object, [COLOR=blue]ByVal[/color] e [COLOR=blue]As[/color] PowerModeChangedEventArgs)
[COLOR=blue]Select Case[/color] e.Mode
[i]blahblahblah[/i]
[COLOR=blue]End Select
End Sub
Private Sub[/color] UserPreferenceChanged([COLOR=blue]ByVal[/color] sender [COLOR=blue]As[/color] System.Object, [COLOR=blue]ByVal[/color] e [COLOR=blue]As[/color] UserPreferenceChangedEventArgs)
[COLOR=blue]Select Case[/color] e.Category
[i]blahblahblah[/i]
[COLOR=blue]End Select
End Sub