Change Menu color?

i even tried to change the value of the const but it didnt like the RGB at all and couldnt figure out how to change it to HEX. a search on VBF gave me no luck.

Complete project attached.
username/password: test

wouldnt let me attach: file too large.
can download project here:

Havent finished but giot the menu bar to draw correctly but not the submenus.

VB Code:

Dim mi As MENUINFO
    With mi
        .cbSize = Len(mi)
        .fMask = MIM_BACKGROUND
        .hbrBack = CreateSolidBrush(vbRed) 'RGB(111, 140, 223)
        SetMenuInfo GetMenu(Me.hWnd), mi  'main menu bar
        
        .fMask = MIM_BACKGROUND Or MIM_APPLYTOSUBMENUS
        .hbrBack = CreateSolidBrush(vbRed) 'RGB(111, 140, 223)
        SetMenuInfo GetSubMenu(GetMenu(Me.hWnd), 0), mi  'File menu (item 0)
        
        .hbrBack = CreateSolidBrush(vbRed) 'RGB(111, 140, 223)
        SetMenuInfo GetSubMenu(GetMenu(Me.hWnd), 1), mi 'Add menu (item 1)
        
        .hbrBack = CreateSolidBrush(vbRed) 'RGB(111, 140, 223)
        SetMenuInfo GetSubMenu(GetMenu(Me.hWnd), 2), mi 'View menu (item 2)
        
        .hbrBack = CreateSolidBrush(vbRed) 'RGB(111, 140, 223)
        SetMenuInfo GetSubMenu(GetMenu(Me.hWnd), 3), mi 'Settings menu (item 3)
        
'        .hbrBack = CreateSolidBrush(RGB(111, 140, 223))
    End With
    
    DrawMenuBar Me.hWnd

the code is still useful in year 2008, thank you.

I want to ask a question:
I have a menu with four items : File, Edit, Tools, Help.

Can I just make the menu bar "Help" in red color while the others three menu items (that is, File, Edit and Tools) remains default grey color.

Thank you a lo

it doesnt work if the menu is invisible! I like to hide the main menu and use the menu in a ownerdrawn menu