Custom Toolbar Dropdown problem

[bandit_1981]

Hello all,

I use a custom toolbar and i am trying to add a dropdown control as the last item in it. It adds it but does not display the last button. If i take it out it display the last button. What am i missing?

    Set NewBtn = TBar.Controls.Add(Type:=msoControlButton)
    With NewBtn
    .OnAction = "showbackup"
    .Caption = "Backup/Restore"
    .TooltipText = "Click here to backup or restore a client"
    .Style = msoButtonIconAndCaption
    .FaceId = 367
    .BeginGroup = True
    End With
    
    Set NewBtn = TBar.Controls.Add(Type:=msoControlButton)
    With NewBtn
    .OnAction = "ClosePlanner"
    .Caption = "Close Planner"
    .TooltipText = "Click here to close this planner"
    .Style = msoButtonIconAndCaption
    .FaceId = 1088
    .BeginGroup = True
    End With
    
    Set NewBtn = TBar.Controls.Add(Type:=msoControlDropdown)
    With NewBtn
    .OnAction = ""
    .Caption = "Navigation"
    .TooltipText = ""
    .Style = msoButtonIconAndCaption
    .BeginGroup = True
    End With

 

[bandit_1981]

NM fixed it