baggrundsfarve på menu

Prøv at vis den kode der gør det hele sort...

Dim tMI As MENUINFO
   
    tMI.cbSize = Len(tMI)
    tMI.fMask = MIM_BACKGROUND Or MIM_APPLYTOSUBMENUS
    tMI.hbrBack = CreateSolidBrush(frmMain.BackColor)
    SetMenuInfo GetMenu(Me.hwnd), tMI

'---- Module1 ---
Declare Function TranslateColor Lib "olepro32.dll" Alias "OleTranslateColor" (ByVal clr As OLE_COLOR, ByVal palet As Long, col As Long) As Long
'---- Module1 ----

'---- Form1 ----
Private Sub Form_Load()
Dim lColor As Long
Dim tMI As MENUINFO

  tMI.cbSize = Len(tMI)
  tMI.fMask = MIM_BACKGROUND Or MIM_APPLYTOSUBMENUS

  'Convert OLE colors to RGB colors
  TranslateColor Me.BackColor, 0, lColor

  tMI.hbrBack = CreateSolidBrush(lColor) '<- lColor
  SetMenuInfo GetMenu(Me.hwnd), tMI

End Sub
'---- Form1 ----

smukt sjh !!
endnu engang er du dagens mand i skysauce !! :o)

ha ha.. :D

ehheeh