I got a small Menu problem, need help, much help !

[Zleepy]

Hi there !
I have a little problem with menus, Popupmenus...I don't like the colors of it, so I changed all the colors, except I can't change the colors of the border, I REALLY REALLY want to change the menu borders colors...if you know just the smalest thing about doing this, please help me. !!

[Joacim Andersson]

I think the menu border color is the same as for all 3D objects. Change the dark and light shadows of command buttons.

[Zleepy]

I don't want to change the color of every menu in the system, just this one menu, my own dynamic menu !

Zleepy, how about changing the menu color when your form is loaded and than changing it back after you unload your form?

'Code from Megatron

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
Const COLOR_MENU = 4
Const COLOR_MENUTEXT = 7
Dim prevBackColor
Dim prevForeColor

Private Sub Private Sub Form_Load()
    
    prevBackColor = GetSysColor(COLOR_MENU)
    prevForeColor = GetSysColor(COLOR_MENUTEXT)
    'Changes the background colour to Blue
    SetSysColors 1, COLOR_MENU, RGB(0, 0, 255)
    'Changes the Menu-Text colour to Green
    SetSysColors 1, COLOR_MENUTEXT, RGB(0, 255, 0)
    

End Sub

Private Sub Form_Unload(Cancel As Integer)

    'Set the colours back to normal
    SetSysColors 1, COLOR_MENU, prevBackColor
    SetSysColors 1, COLOR_MENUTEXT, prevForeColor
    
End Sub