' XP-Style
Private Declare Function IsThemeActiveAPI Lib "UxTheme.dll" Alias _
                        "IsThemeActive" () As Boolean
 
' XP-Styles aktiv
' gibt auch 'False' zurück, wenn älteres OS d.h. DLL nicht vorhanden
Public Function XPThemeActive() As Boolean
    On Error GoTo Fehler
    Err.Clear
    XPThemeActive = IsThemeActiveAPI()
     If Err.Number = 53 Then XPThemeActive = False  ' DLL nicht vorhanden = 
     ' kein XP!
    Exit Function
Fehler:
    Err.Clear
    XPThemeActive = False                           ' Rückgabewert setzen
End Function