¿Cómo cambiar el color de la barra de menú y del menú en programación vb?

Const privada MIM_APPLYTOSUBMENUS = amp H80000000

Tipo privado MENUINFO

cbSize As Long

fMask As Largo

dwStyle Mientras tanto

cyMax Mientras tanto

hbrBack Mientras tanto