Public Sub SetMenuBar(ByVal clr As Long)
  Dim MyMenu As MENUINFO
  MyMenu.cbSize = Len(MyMenu)
  MyMenu.fMask = MIM_BACKGROUND Or MIM_APPLYTOSUBMENUS
  MyMenu.hbrBack = CreateSolidBrush(clr)
  SetMenuInfo GetMenu(Form1.hwnd), MyMenu
End Sub