取Windows系统是否启用风格
Private Declare Function IsAppThemed Lib "uxtheme.dll" () As Boolean
Public Function SupportThemeSystem() As Boolean
SupportThemeSystem = IsAppThemed
Print IsAppThemed
End Function
Private Sub Command1_Click()
SupportThemeSystem
End Sub