Hi Bhav,

you need to check your code.

>And to top it off, when on a W2K machine the _IsThemeActive() also returns a .T.

will not work with

IF _IsThemeActive() = 1

::)

UPDATE
You need to wrap _IsThemeActive() into a procedure of your own and add some handling so that you can determine the OS. In fact I would not try to declare the XP functions in W2K

Agnes

>Thanks Naomi for the links and your efforts. GetThemeSysColor() also returned the same colors as the GetSysColor()
>
>

        IF _IsThemeActive() = 1
>                MESSAGEBOX("theme active")
>                lnTheme = _OpenThemeData(tnHandle, 0)
>                lnColor = _GetThemeSysColor(lnTheme, tnColorScheme)
>                _CloseThemeData(lnTheme)
>        ELSE
>                lnColor = _GetSysColor(tnColorScheme)
>        ENDIF

>
>And to top it off, when on a W2K machine the _IsThemeActive() also returns a .T.
>
>Thanks.