工具栏的按钮问题

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error Resume Next
Select Case Button.Key
Case "新建"
mnuNew_Click
Case "打开"
mnuOpen_Click
Case "保存"
mnusave_click
Case "剪切"
mnucut_click
Case "复制"
mnucopy_click
Case "粘贴"
mnupaste_click
Case "查找"
mnufind_Click
End Select
End Sub
提示：子程序或函数未定义 --------------------编程问答-------------------- 可能是引用的问题。 --------------------编程问答-------------------- 检查mnuNew_Click， mnuOpen_Click....等过程是否存在，应该是相应菜单的响应代码 --------------------编程问答-------------------- stlyl(stlyl（维生素B）)对

补充：VB ,  基础类