Zleepy, how about changing the menu color when your form is loaded and than changing it back after you unload your form?

Code:
'Code from Megatron

Private Declare Function SetSysColors Lib "user32" _
 (ByVal nChanges As Long, lpSysColor As Long, lpColorValues _
As Long) As Long
Private Declare Function GetSysColor Lib "user32" (ByVal _
nIndex As Long) As Long
Const COLOR_MENU = 4
Const COLOR_MENUTEXT = 7
Dim prevBackColor
Dim prevForeColor

Private Sub Private Sub Form_Load()
    
    prevBackColor = GetSysColor(COLOR_MENU)
    prevForeColor = GetSysColor(COLOR_MENUTEXT)
    'Changes the background colour to Blue
    SetSysColors 1, COLOR_MENU, RGB(0, 0, 255)
    'Changes the Menu-Text colour to Green
    SetSysColors 1, COLOR_MENUTEXT, RGB(0, 255, 0)
    

End Sub

Private Sub Form_Unload(Cancel As Integer)

    'Set the colours back to normal
    SetSysColors 1, COLOR_MENU, prevBackColor
    SetSysColors 1, COLOR_MENUTEXT, prevForeColor
    
End Sub