What's an alternate for this in X5 VBA

I have got this far now:

Sub CreateCmdbar()
Dim app As Application

Set app = CorelDRAW.Application
app.CommandBars.Add ("Anand 1")
app.CommandBars("Anand 1").Controls.Add "View", 1, False
app.CommandBars("Anand 1").Visible = True

End Sub

It creates a toolbar named "Anand" just fine and the last line (just before End Sub) shows it on the page. The only line I am struggling with is:

app.CommandBars("Anand 1").Controls.Add "View", 1, False

I named the button "View", 1 is the index (I guess button 1 on the toolbar, so I chose "1"), false was for the option "temporary" = true/false. When I run the code I get a toolbar named "Anand", but with no button on it. Maybe you or John can figure it out. I will have a play after I make a cup of coffee.

Best regards,
Brian.

Hi Anand,

I forgot to come back to this thread earlier on, I have been posting in other threads and testing some bugs. This was the last code I had reached before retiring for awhile..lol:

Sub CreateCmdbar()

Dim app As Application
Set app = CorelDRAW.Application
app.CommandBars.Add ("Anand 1")

With app.CommandBars("Anand 1")
    .Controls.AddCustomButton "Button 1", Year(2011), 1, False
    .Controls.AddCustomButton "Button 2", Month(1), 2, False
    .Controls(1).Visible = True
    .Visible = True
End With

End Sub

It creates the toolbar and 2 buttons, but the buttons must be the same colour as the toolbar because they are not visible. However, hovering over them reveals they are actually there. Maybe have a play around from here, I will do the same tomorrow evening. I need to get some sleep as I have an appointment in the morning first thing and it is 1.05am here.

Best regards,
Brian.

you can disable a button without making it disappear?
I have to make sure that the icon is turned off but visible.
commandbar not (). controls (). visible but> commandbar (). controls (). enabled?