msoBar?

[J Shrimps, Jr.]

Dim StrMenu As String
Dim strint As String
Dim strNow As String
strNow = Right(FormatDateTime(Now(), vbLongTime), 5)
strNow = Left(strNow, 2)
strNow = Trim(strNow)
StrMenu = "Menu " & Int((strNow * Rnd) + 1)
Set OldMbar = CommandBars.ActiveMenuBar
Set NewMbar = CommandBars.Add _
(Name:="'& strmenu &'", Position:=msoBarRight, MenuBar:=True,
temporary:=True)

With NewMbar
.Visible = TRUE
.Protection = msoBarNoMove
End With


This code hides the menu bar so
users can't use the menu at all.
However, a sort of menu bar
appears on the right side of the
Access screen.
When a datasheet form is opened,
the close button is on the right
side of the screen, confusing Users.

Is there any way to put
this temporary menu bar
on the top?
"Positon.=msoBarTop," generates an error....

Any alternative to disabling menu bar,
but allowing individual forms to have a close
button is the real goal.