Private Sub TBar_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles TBar.ButtonClick If e.Button Is TBtnAdd Then OpAdd() ElseIf e.Button Is TBtnExplore Then OpExplore() Else ' Nothing End If End SubTBtnAdd, TBtnExplore are the names that i've assigned to the buttons in design time.