Couleur de la barre de menu d'un UserForm

Bonjour,

Je voudrais que la couleur de la barre de menu de mon UserForm
soit la même que la couleur de fond du UserForm. Est-ce possible
et comment ?

J'ai regardé du côté des API windows mais cela touche un domaine
qui est complètement abstrait pour moi.

Merci d'avance pour votre aide.

Dom.

Inutile de me répondre, j'ai trouvé :

http://www.excelabo.net/xl/userforms.php#coulbandeau

Inutile de me répondre, j'ai trouvé :

http://www.excelabo.net/xl/userforms.php#coulbandeau

Avec ce que j'ai trouvé sur le lien ci-dessus j'ai réussi à modifier
la couleur du texte du bandeau de titre et une partie seulement de
la couleur du bandeau mais pas complètement car dans windows
j'utilise un dégradé.

Comment faire pour modifier les couleurs de départ (Ok je sais) et
d'arrivée ?

Merci d'avance.
--------------------------------------------------------
Le code du UserForm
--------------------------------------------------------

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

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

Const COLOR_ACTIVECAPTION = 2
Const COLOR_CAPTIONTEXT = 9

Dim AncienCouleurBandeau, AncienCouleurText As Long
Dim CouleurForm, CouleurText As Long

Private Sub UserForm_Initialize()

'Changement des couleur du bandeau titre
AncienCouleurBandeau = GetSysColor(COLOR_ACTIVECAPTION)
AncienCouleurText = GetSysColor(COLOR_CAPTIONTEXT)

'Donner la couleur du UserForm au bandeau
CouleurForm = UserFormPRETER.BackColor
SetSysColors 1, COLOR_ACTIVECAPTION, CouleurForm

'Modifier la couleur du texte du bandeau
CouleurText = RGB(0, 0, 0)
SetSysColors 1, COLOR_CAPTIONTEXT, CouleurText

End Sub

Private Sub BoutonAnnuler_Click()

'Fermer le UserForm
SetSysColors 1, COLOR_ACTIVECAPTION, AncienCouleurBandeau
SetSysColors 1, COLOR_CAPTIONTEXT, AncienCouleurText
Unload UserFormPRETER

End Sub