Farver på menuen

Du kan bruge denne code:
Mener at have fundet på planetsourcecode engang.

akj

'***** modul start *****
Enum MENUINFO_STYLES
    MNS_NOCHECK = &H80000000
    MNS_MODELESS = &H40000000
    MNS_DRAGDROP = &H20000000
    MNS_AUTODISMISS = &H10000000
    MNS_NOTIFYBYPOS = &H8000000
    MNS_CHECKORBMP = &H4000000
End Enum

Enum MENUINFO_MASKS
    MIM_MAXHEIGHT = &H1
    MIM_BACKGROUND = &H2
    MIM_HELPID = &H4
    MIM_MENUDATA = &H8
    MIM_STYLE = &H10
    MIM_APPLYTOSUBMENUS = &H80000000
End Enum

Public Type MENUINFO
    cbSize As Long
    fMask As MENUINFO_MASKS
    dwStyle As MENUINFO_STYLES
    cyMax As Long
    hbrBack As Long
    dwContextHelpID As Long
    dwMenuData As Long
End Type

Declare Function GetMenuInfo Lib "user32" ( _
    ByVal hMenu As Long, _
    mi As MENUINFO) As Long

Declare Function SetMenuInfo Lib "user32" ( _
    ByVal hMenu As Long, _
    mi As MENUINFO) As Long

Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long

Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long

'***** modul slut *****


' ***** form load start *****
Dim tMI As MENUINFO

  tMI.cbSize = Len(tMI)
  tMI.fMask = MIM_BACKGROUND Or MIM_APPLYTOSUBMENUS
  tMI.hbrBack = CreateSolidBrush(vbBlue)
    SetMenuInfo GetMenu(Me.hwnd), tMI
' ***** form load slut *****

Det hjalp en del på designet af min frontend...mange tak akj

Til I andre der kigger med, så skal I, for at give menuen samme farve
som baggrundsfarven på formen, ændre parameteren (vbBlue)i den andensidste linie i koden for formload, til (BackColor). =>
"tMI.hbrBack = CreateSolidBrush(BackColor)"