La función GetSysColor nos devuelve el color, en valor RGB, de los distintos elementos de windows. Se le pasa como parámetro una constante que indica el elemento que queremos.

Declaramos en un módulo :

Declare Function GetSysColor Lib "user32" Alias _
"GetSysColor" (ByVal nIndex As Long) As Long

Public Const COLOR_3DDKSHADOW = 21 'Sombra oscura de los elementos en 3D
Public Const COLOR_BTNFACE = 15 'Superficie de los botones
Public Const COLOR_3DFACE = COLOR_BTNFACE 'Superficie de los elementos 3D
Public Const COLOR_BTNHIGHLIGHT = 20 'Lado de los botones donde da la luz
Public Const COLOR_BTNHILIGHT = COLOR_BTNHIGHLIGHT
Public Const COLOR_3DHIGHLIGHT = COLOR_BTNHIGHLIGHT 'Lado de los elementos en 3D con luz
Public Const COLOR_3DHILIGHT = COLOR_BTNHIGHLIGHT
Public Const COLOR_3DLIGHT = 22 'Luz de los elementos en 3D
Public Const COLOR_BTNSHADOW = 16 'Sombra para los elementos en 3D
Public Const COLOR_3DSHADOW = COLOR_BTNSHADOW
Public Const COLOR_ACTIVEBORDER = 10 'Borde de las ventanas activas
Public Const COLOR_ACTIVECAPTION = 2 'Barra de título de las ventanas activas
Public Const COLOR_APPWORKSPACE = 12 'Fondo de las ventanas MDI
Public Const COLOR_BACKGROUND = 1 'Escritorio
Public Const COLOR_DESKTOP = COLOR_BACKGROUND
Public Const COLOR_BTNTEXT = 18 'Texto de los botones
Public Const COLOR_CAPTIONTEXT = 9 'Texto en barra de títulos
Public Const COLOR_GRAYTEXT = 17 'Texto desactivado (disabled)
Public Const COLOR_HIGHLIGHT = 13 'Elementos seleccionados en un control
Public Const COLOR_HIGHLIGHTTEXT = 14 'Texto de los elementos seleccionados en un control
Public Const COLOR_INACTIVEBORDER = 11 'Borde de las ventanas no activas
Public Const COLOR_INACTIVECAPTION = 3 'Barra de título de las ventanas no activas
Public Const COLOR_INACTIVECAPTIONTEXT = 19 'Texto de la barra de título de las ventanas no activas
Public Const COLOR_INFOBK = 24 'Fondo de los ToolTipText
Public Const COLOR_INFOTEXT = 23 'Texto de los ToolTipText
Public Const COLOR_MENU = 4 'Fondo del menú
Public Const COLOR_MENUTEXT = 7 'Texto del menú
Public Const COLOR_SCROLLBAR = 0 'Area gris de una scroll bar
Public Const COLOR_WINDOW = 5 'Fondo de la ventana
Public Const COLOR_WINDOWFRAME = 6 'Marco de la ventana
Public Const COLOR_WINDOWTEXT = 8 'Texto de la ventana


Y para obtener el color del elemento deseado, por ejemplo la barra de título de las ventanas activas, empleamos :

dim col as long
col = GetSysColor(COLOR_ACTIVECAPTION)