- Declare Function SetSysColors Lib "user32" Alias "SetSysColors" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long
- Public Const COLOR_ACTIVECAPTION = 2
-
- ' Puis mettez ce code dans un Bouton_Click par exemple :
-
- bar& = SetSysColors(1, COLOR_ACTIVECAPTION, RGB(255,0,0))
-
- ' N.B : ceci mettra la couleur Rouge dans la barre, pour le Bleu, utilisez : RGB(0,0,255) et pour le Vert : RGB(0,255,0)
Declare Function SetSysColors Lib "user32" Alias "SetSysColors" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long
Public Const COLOR_ACTIVECAPTION = 2
' Puis mettez ce code dans un Bouton_Click par exemple :
bar& = SetSysColors(1, COLOR_ACTIVECAPTION, RGB(255,0,0))
' N.B : ceci mettra la couleur Rouge dans la barre, pour le Bleu, utilisez : RGB(0,0,255) et pour le Vert : RGB(0,255,0)