Podemos cambiar el color de los elementos de windows empleando la función SetSysColor. Se le pasan tres parámetros : el número de elementos a modificar, las constantes que los identifican y el valor RGB de color para cada uno.

Declaramos en un formulario :

Declare Function SetSysColors Lib "user32" Alias _
"SetSysColors" (ByVal nChanges As Long, lpSysColor As _
Long, lpColorValues As Long) As Long

Las constantes son las mismas que las del truco "Conocer el color de los elementos de windows", en esta misma sección.

Para, por ejemplo, poner en rojo la barra de título de las ventanas activas :

dim res as long
res& = SetSysColors(1, COLOR_ACTIVECAPTION, RGB(255,0,0))