ToolBar Question

[VIP3R]

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???

[PRIVATE1]

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