#DEFINE COLOR_SCROLLBAR      0
#DEFINE COLOR_ACTIVECAPTION  2
#DEFINE COLOR_WINDOW         5
#DEFINE COLOR_WINDOWFRAME    6
#DEFINE COLOR_MENUTEXT       7
#DEFINE COLOR_WINDOWTEXT     8
 
    DECLARE INTEGER GetSysColor IN "user32" INTEGER nIndex
 
    ? GetSysColor (COLOR_SCROLLBAR)
    ? GetSysColor (COLOR_ACTIVECAPTION)
    ? GetSysColor (COLOR_WINDOW)
    ? GetSysColor (COLOR_WINDOWFRAME)
    ? GetSysColor (COLOR_MENUTEXT)
    ? GetSysColor (COLOR_WINDOWTEXT)
 
    * actually, you can test the whole range
    FOR lnColor=0 TO 28
        ? "System color ["
        ?? lnColor
        ?? "] = "
        ?? GetSysColor (lnColor)
    ENDFOR