To put a combo box on a toolbar, create a place holder and positionthe combo box above the place holder in the z-order. You can’t place thecombo box inside the place holder. Instead, follow these steps:
Private Sub Form_Load() Dim btnX As Button Me.Show Set btnX = Toolbar1.Buttons.Add() btnX.Style = tbrSeparator Set btnX = Toolbar1.Buttons.Add() btnX.Style = tbrPlaceholder btnX.Key = "combo" btnX.Width = 2000 With Combo1 .ZOrder 0 .Width = Toolbar1.Buttons("combo").Width .Top = Toolbar1.Buttons("combo").Top .Left = Toolbar1.Buttons("combo").Left End WithEnd Sub