Declare Function IsThemeActive Lib "uxtheme.dll" () As Long
Если приложение использует визуальный стиль, то возвращается True, в противном случае возвращается False
Функция не имеет параметров
MsgBox IsThemeActive