System Color

'System Colors



Private Declare Function SetSysColors
Lib "user32" _

(ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long

Private Declare Function GetSysColor
Lib "user32" _

(ByVal nIndex As Long) As Long



Const COLOR_SCROLLBAR = 0            
'The Scrollbar colour

Const COLOR_BACKGROUND = 1        'Colour of the background with no wallpaper

Const COLOR_ACTIVECAPTION = 2    
'Caption of Active Window

Const COLOR_INACTIVECAPTION = 3
'Caption of Inactive window

Const COLOR_MENU = 4                        
'Menu

Const COLOR_WINDOW = 5                  
'Windows background

Const COLOR_WINDOWFRAME = 6     
'Window frame

Const COLOR_MENUTEXT = 7               
'Window Text

Const COLOR_WINDOWTEXT = 8         
'3D dark shadow (Win95)

Const COLOR_CAPTIONTEXT = 9          'Text in window caption

Const COLOR_ACTIVEBORDER = 10     
'Border of active window

Const COLOR_INACTIVEBORDER = 11          
'Border of inactive window

Const COLOR_APPWORKSPACE = 12            
'Background of MDI desktop

Const COLOR_HIGHLIGHT = 13                       
'Selected item background

Const COLOR_HIGHLIGHTTEXT = 14              
'Selected menu item

Const COLOR_BTNFACE = 15                           
'Button

Const COLOR_BTNSHADOW = 16                    
'3D shading of button

Const COLOR_GRAYTEXT = 17                          'Grey text, of zero if dithering is used

Const COLOR_BTNTEXT = 18                            
'Button text

Const COLOR_INACTIVECAPTIONTEXT = 19
'Text of inactive window

Const COLOR_BTNHIGHLIGHT = 20                '3D highlight of button

Const COLOR_2NDACTIVECAPTION = 27    
'Win98 only: 2nd active window color

Const COLOR_2NDINACTIVECAPTION = 28
'Win98 only: 2nd inactive window color



Private Sub Form_Load()

col& = GetSysColor(COLOR_ACTIVECAPTION)

'Change the active caption's color to red

t& = SetSysColors(1, COLOR_ACTIVECAPTION, RGB(255, 0, 0))

MsgBox "The old title bar color was" + Str$(col&) + " and is now" +
_

Str$(GetSysColor(COLOR_ACTIVECAPTION))

End Sub