The MenuBar

[Vegard Villmones]

Hi

I have this program (msaccess04) where I want to disable the menubar
when the license key is not correct. I.e I want to gray out all the
items in the menu, it would look better than not showing the menu at
all, which is what I do now.

So I'm looking for some kind of property like me.menubar.gray out =
true ? :)

Vegard

[John Winterbottom]

Re: The MenuBar

"Vegard Villmones" <vvillmon@c2i.n et> wrote in message
news:b5b3f60c.0 405130408.44248 2c8@posting.goo gle.com...[color=blue]
> Hi
>
> I have this program (msaccess04) where I want to disable the menubar
> when the license key is not correct. I.e I want to gray out all the
> items in the menu, it would look better than not showing the menu at
> all, which is what I do now.
>
> So I'm looking for some kind of property like me.menubar.gray out =
> true ? :)[/color]


I think you need to disable the individual menu items.

Sub disableMenu(str Menu As String)

Dim cbr As Object
Dim ctl As Object

Set cbr = Application.Com mandBars(strMen u)
For Each ctl In cbr.Controls
ctl.Enabled = False
Next ctl
Set ctl = Nothing
Set cbr = Nothing


End Sub