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
Set btnX = Toolbar1.Buttons.Add() = tbrSeparator
Set btnX = Toolbar1.Buttons.Add() = 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

Go Back