toolbar position

[ibsuzanne]

hello there,

I am having a really diffuclt time positioning the toolbars where I
want them in Access 2000. I have a main toolbar open and docked at the
top, and I want to open an additional toolbar in line and to the right
of the main one as part of an on_click event.

the problem is that the second toolbar drops to the line below instead
of appearing in line with it (for some users). therefore i need a way
to programmatically ensure they open in a single line.

the main bar .top = 23 and using the sub below i attempt to set the
additional toolbar .top = 23 as well. the problem is that it continues
to = 49!

i can manually drag it up to the top line and Access will 'remember'
the position the next time I open, but I distribute this as an .mde
and users have to manually drag it up every time they open.

I am at my wit's end and desperately need to get this working
properly. Can anyone help???

thank you!!
suzanne

***************
Sub SetToolbar(str As String)

Dim cmdBar As Office.CommandBar
Set cmdBar = Application.CommandBars(str)
With cmdBar
.Visible = True
.Top = 23
.Position = 1
.Protection = 0

Debug.Print ".top=" & .Top
Debug.Print ".position=" & .Position
Debug.Print ".protection=" & .Protection
Debug.Print ".height=" & .height

End With

End Sub

****output****
..top=49
..position=1
..protection=0
..height = 26
**************