i found this dll in http://www.davphantom.net/ i can recognize that theme is active or not but i want to know which theme is active?
because i don't know Spanish i ask here

Declare Integer IsThemeActive in "UxTheme.dll" () As Long
nRet = IsThemeActive()

? "Themes: " + Iif(nRet = 0, "No activos","Activos")