Private Declare Function GetVersionEx Lib "Kernel32.dll" Alias _ 
    "GetVersionExA" (ByRef lpVersionInfo As OSVersionInfo) As Long 
Private Declare Function DllGetVersion Lib "ComCtl32.dll" (ByRef PDVI As DLLVersionInfo) As Long 
Private Declare Function IsThemeActive Lib "UXTheme.dll" () As Long 
Private Declare Function IsAppThemed Lib "UXTheme.dll" () As Long 


Private Type OSVersionInfo 
    dwOSVersionInfoSize As Long 
    dwMajorVersion As Long 
    dwMinorVersion As Long 
    dwBuildNumber As Long 
    dwPlatformId As Long 
    szCSDVersion As String *  128  ' Maintenance string for PSS usage 
End Type 


Private Type DLLVersionInfo 
    cbSize As Long 
    dwMajorVersion As Long 
    dwMinorVersion As Long 
    dwBuildNumber As Long 
    dwPlatformId As Long 
End Type 


Private Const VER_PLATFORM_WIN32_NT As Long =  2  


Public Function IsVisualStylesEnabled() As Boolean 
    Dim os As OSVersionInfo 
    Dim Version As DLLVersionInfo 


    os.dwOSVersionInfoSize = Len(os) 
    Call GetVersionEx(os) 


    If ((os.dwPlatformId = VER_PLATFORM_WIN32_NT) And ( _ 
        ((os.dwMajorVersion =  5 ) And (os.dwMinorVersion >=  1 )) Or (os.dwMajorVersion >  5 ))) Then 
        Version.cbSize = Len(Version) 


        If (DllGetVersion(Version) =  0 ) Then _ 
            IsVisualStylesEnabled = (Version.dwMajorVersion >  5 ) And _ 
                CBool(IsThemeActive()) And CBool(IsAppThemed()) 
    End If 
End Function