' XP-Style
Private Declare Function IsThemeActiveAPI Lib "UxTheme.dll" Alias _
                        "IsThemeActive" () As Boolean
 
Private Declare Function SetXPThemeAPI Lib "UxTheme.dll" Alias _
                         "EnableTheming" (ByVal fEnable As Boolean) As Long

cu
JennyB
___________________________________________________________________
Some days are diamond - some days are stone ...