Private Sub tbrEdit_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error GoTo ErrorHandler: ' if an error occurs Vb will jump too that line

        Select Case Button.Key ' Select The button Being pressed by
        ' using the select case statement also on the Buttons Key
     Case "open" ' user Clicked the Open Button
         Call open_Click
     Case "save" ' user Clicked the save Button
         Call save_Click
     Case "refresh" ' user Clicked the Refresh Button
         Call refresh_click
     Case "print" 'user Clicked Print Button
         Call print_Click
     Case "cut" ' user Clicked the cut Button
         Call cut_Click
     Case "find" ' user Clicked the Find Button
         Call find_Click
    Case "delete" ' user Clicked the Find Button
         Call delete_Click
     Case "properties" ' user Clicked the Find Button
         Call prop_Click
      Case "replace" ' user Clicked the Find Button
         Call replace_Click
        End Select
        
ErrorHandler:
    If Err.Number <>  0  Then ' if an error is equal too anything other or above zero then ......
      ' Display the error message too the user
      MsgBox "Cannot access the toolbar, " & Err.Description, vbCritical, "Toolbar - NextPad"
      Exit Sub ' exit the sub immediately
    End If

End Sub