Respond to changes to Windows User preferences

' ----------------------------------------
' Required Imports :
'
' Microsoft.Win32
' ----------------------------------------

Dim WithEvents systemEvent As SystemEvents

Private Sub systemEvent_UserPreferenceChanged(ByVal sender As System.Object, ByVal e As UserPreferenceChangedEventArgs) Handles systemEvent.UserPreferenceChanged
Select Case e.Category
Case UserPreferenceCategory.Accessibility

Case UserPreferenceCategory.Color

Case UserPreferenceCategory.Desktop

Case UserPreferenceCategory.General

Case UserPreferenceCategory.Icon

Case UserPreferenceCategory.Keyboard

Case UserPreferenceCategory.Locale

Case UserPreferenceCategory.Menu

Case UserPreferenceCategory.Mouse

Case UserPreferenceCategory.Policy

Case UserPreferenceCategory.Power

Case UserPreferenceCategory.Screensaver

Case UserPreferenceCategory.VisualStyle

Case UserPreferenceCategory.Window
Case Else
End Select
End Sub