输入下面代码后,VB提示字程序或函数未定义

你的问题出在，你去调用Menu13_Click，但是那个子程序并不存在。
解决方法：添加程序段。例如下面。加上这一段，程序就可以执行了。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub menu13_Click()
MsgBox ""
End Sub

不是所以的控件的click事件都这样调用的 你看看menu13_click的属性后面是不是有参数 如果有参数 你仿照menu13_click 的参数加上 在加参数的时候 你最好手动点一下menu13_click 用MSGBOX提示menu13_click 里面的参数的值 比如menu13_click 里面有一个参数
menu13_click（byval integer a）
在调用的时候
Menu13_click(加一个整数) 调用的方法类似 有的控件的这个属性不允许背其他方法调用

可以试试
Dim r As Long
r = menu13_Click()

1 时候有menu13是否存在
2 menu13的click事件里是否有代码
3 menu13是否在异窗体

貌似后头还要跟对括号吧

menu13_click?!不能这样用吧