Const WM_THEMECHANGED As Int32 = =&H31A
Сообщение WM_THEMECHANGED посылается всем окнам при смене, активации и деактивации визуальных стилей Windows XP. Окно получает сообщение через функцию обратного вызова WindowProc
' Пример для VB .NET 2003
' при смене визуальных стилей
' выводим сообщение в надпись Label
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
Select Case m.Msg
Case WM_THEMECHANGED
Label1.Text = "Визуальные стили поменялись"
End Select
MyBase.WndProc(m)
End Sub