AddCtrlRunTime

'aggiungo una combobox a run-time

Dim b As Button
Set b = Toolbar1.Buttons.Add(, , , tbrSeparator)
Set b = Toolbar1.Buttons.Add(, "combo1", , tbrPlaceholder)

With Combo1
.Move Toolbar1.Buttons("combo1").Left, Toolbar1.Buttons("combo1").Top
.AddItem "rosso"
.AddItem "verde"
.AddItem "blu"
.ListIndex = 0
End With