Add Combo Box To ToolBar

'Add 1 Combo Box and 1 ToolBar to your form.
'Insert the following code to your form:

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 With
End Sub