ToolBar как программится обработка события нажатия кнопки панели? - VB

Формулировка задачи:

Нигде не могу найти описание о ToolBar_e. Как заставить прогу обрабатывать событие нажатия конкретной кнопки. Думал через index, да прога ругается на массив. Пожалуйста, помогите.

Решение задачи: «ToolBar как программится обработка события нажатия кнопки панели?»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Sub</font> tbrEdit_ButtonClick(<font color="blue">ByVal</font> Button <font color="blue">As</font> MSComctlLib.Button)
<font color="blue">On</font> <font color="blue">Error</font> <font color="blue">GoTo</font> ErrorHandler: <font color="00AA00">' if an error occurs Vb will jump too that line</font>

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

<font color="blue">End</font> <font color="blue">Sub</font>
                        