Running Code
Now that the toolbar has been created, we need to write some code that will
run when a button is clicked. Not suprisingly, the ButtonClick event occurs
whenever a button is clicked. We are then passed a reference to the button that
has been clicked, which we can use to work out what to do.
The code below does exactly this. All you need to do is add a 'Case' for each
of the buttons, and then run the code that you want. If you already have a menu
item that does the same thing, you could simply call that procedure.
Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
Select Case Button.Key 'get the button's key
Case "Open"
'perform Open action
Case "Save"
'perform Save action
Case "New"
'perform New action
End Select
End Sub