Article ID: 153928
Article Last Modified on 3/15/2005
Option Explicit
Private Sub Form_Load()
Dim btn As Button
Me.Show
Set btn = Toolbar1.Buttons.Add()
btn.Style = tbrSeparator
Set btn = Toolbar1.Buttons.Add()
btn.Style = tbrPlaceholder
btn.Key = "ComboBox"
btn.Width = 2000
DoEvents
With Combo1
.ZOrder 0
.Width = Toolbar1.Buttons("ComboBox").Width
.Top = Toolbar1.Buttons("ComboBox").Top
.Left = Toolbar1.Buttons("ComboBox").Left
End With
End Sub
Additional query words: kbVBp400 kbVBp600 kbVBp kbdsd kbDSupport kbControl
Keywords: kbhowto kbcontrol KB153928