ToolBar Question

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

---