UserForm Title Bar - Colors

[Gerryc]

SUBJECT: WIN32API Calls from MS Excel Visual Basic. Excel ver 97 SR-2 Visual Basic ver 8.0e

SPECIFIC: UserForm ActiveTitle Bar colors appear to adopt those of the Windows Desktop setup

QUESTION: Is it possible to temporarily alter UserForm ActiveTitle Bar colors via a WIN32API Call for a particular UserForm when loaded or on 'Show'? The Windows Desktop Color settings revert to 'normal' after the UserForm is unloaded or hidden?

Any advice or even sample code would be appreciated.

Thanks

Gerry

 

[Jaafar Tribak]

Welcome to the board.

I am not 100% sure but I don't think you can change the caption bar color of a single window . I tried this before but failed.

painting the boundaries of the title bar with a graphical brush would probably work but would be difficult.

the closest I've come is to change the color of the caption text as follows :

place this in a the userform module :

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

Dim lngColor As Long
Const COLOR_CAPTIONTEXT = 9


Private Sub UserForm_Initialize()

    lngColor = GetSysColor(COLOR_CAPTIONTEXT)
    SetSysColors 1, COLOR_CAPTIONTEXT, vbRed
    
End Sub


Private Sub UserForm_Terminate()

    SetSysColors 1, COLOR_CAPTIONTEXT, lngColor
    
End Sub

Regards.