<pre><code>Private Sub Form_Load()
 
    ' ImageList vorbereiten
    ImageList1.ListImages.Add , , LoadPicture("C:\PicOpen.bmp")
    ImageList1.ListImages.Add , , LoadPicture("C:\PicSave.bmp")
    Toolbar1.ImageList = ImageList1
 
    ' ToolBar Buttons hinzufügen
    Toolbar1.Buttons.Add , "open", , , 1
    Toolbar1.Buttons.Add , "save", , , 2
 
End Sub
 
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
 
    Select Case Button.Key
 
        Case "open": MsgBox "Click: OpenButton"
        Case "save": MsgBox "Click: SaveButton"
 
    End Select
 
End Sub

Mit freundlichen Gr??en,
Andy G.