Menambah ComboBox pada Toolbar

Pada form anda, tambahkan sebuah komponen ComboBox dan sebuat Toolbar. Untuk menambahkan komponen Toolbar, klik menu Projects-Components- Microsoft windows common control 6.0(SP6).

Setelah itu pilih Microsoft windows common control 6.0(SP6). Centang lalu klik OK.

 

Isi form dengan : 

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

Berikut hasilnya :