I made a toolbar and I want to assign a code to each button so when you click on the toolbar button it does SOMETHING. How do I do that???
Printable View
I made a toolbar and I want to assign a code to each button so when you click on the toolbar button it does SOMETHING. How do I do that???
Code:Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
Select Case Button.Key
Case Is = "pic1"
Case Is = "pic2"
Case Is = "pic3"
Case Is = "pic4"
Case Is = "X"
Unload Me
End
End Select
End Sub