ToolBar – Araç Çubuğu

Eklediğiniz butonlara resim yerleştirmek için öncelikle forma bir ImageList ekler ve resimleri bundan aktarırız.
Private Sub ToolBar1_ButtonClick(ByVal Button As ComctlLib.Button)
Select Case Button.Key
Case "Key Adı"
‘ İşlemler
Case "KeyAdi2"
‘ İşlemler2
End Select
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Tus As Button)
Select Case Tus.Key
Case "Yeni"
Mönü_Yeni_Click
Case "Ac"
Mönü_Aç_Click
Case "Kaydet"
Mönü_Kaydet_Click
End Select
End Sub