Public WithEvents EvtHandler3 As
Private Sub EvtHandler1_Click(ByVal CommandBarControl As Object, handled As Boolean, CancelDefault As Boolean)
    'On Error Resume Next
    MsgBox "常用规"
    handled = True
    CancelDefault = True
End Sub

我有个过程
sub kk ()
 MsgBox "运行这段代码"
end sub

怎么改MsgBox "常用规"，让程序运行至MsgBox "运行这段代码"

call kk
---------------
新手中的新手？？

不好意思，我做的是外接程序，用call kk 说编译错误：子程序或函数未定义

外接程序？什么意思？

放在其他窗体中？把窗体文件 加到工程中，然后调用 call 窗体名.过程名  ,要求使用 public 定义
放在 BAS 文件里？  把BAS 加到工程里去。
放在 类 文件里？ 申请一个类的实例，然后调用 call 类名.过程名
VB编译成 DLL ，申明类实例，然后调用。
VC或其他编译成 W32 的DLL ，申明函数\过程 定义，然后调用。

不知你是哪个情况的外接程序？

Private Sub EvtHandler1_Click(ByVal CommandBarControl As Object, handled As Boolean, CancelDefault As Boolean)
和
sub kk ()
不同工程？

谢谢，我已经解决了