Top position of the toolbar 2

[peljo]

I use the following code to create a toolbar:
Sub BuildCustomToolbar()
Dim oCmdBar As CommandBar
On Error Resume Next
'point to custom toolbar
Set oCmdBar = CommandBars("MyToolbar")
'if it doesn't exist create it
If Err <> 0 Then
Set oCmdBar = CommandBars.Add("MyToolbar")
Err = 0
With oCmdBar
'now add a control
..etc..etc

However the toolbar is placed in the middle of the screen.And i want it on the top of the screen, but i do not know the command.I tried with the following line :
Position:=msotop
But obvisouly this i sno the right code.
Could someone help me ?

 

[PHV]

Have you tried this ?
With oCmdBar
.Position = msoBarTop
'now add a control
..etc..etc

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[peljo]

yes, it works perfect now!