主题：[求助]在代码中如何增加控件事件

例如有2个按钮

其中按钮1单击事件为
private sub button1_click() AddHandle button1.Click
{源码...}
end sub

其中按钮2想要增加按钮1中事件，如何增加？

是否是这样：AddHandle button2.Click , AddressOf button1.Click

但是这样编译时发生错误。

 尝试过了，但在全局单击事件中没反映。

有个frmLogin的窗体，窗体中有2个按钮，1个按钮名称是"btnLogin"，另一个动态创建的按钮名称是"_btnLogin"。

窗体frmLogin中的Click全局代码如下：

Forms("frmLogin").Text = e.Sender.Name
Select Case e.Sender.Name
    Case "_btnLogin"
        Forms("frmLogin").Close()
        Forms("frmMain").Open()  ' 另一个窗体
    Case "_btnCancel"
        Syscmd.Project.Exit()  ' 退出Foxtable
End Select

运行窗体后，单击"_btnlLogin"按钮没反映。

 试过了，但没有触发msgbox函数。

 噢，可能是控件动态增加的方式不对，导致全局事件没能触发。
我是这样动态增加控件的：
Forms("frmLogin").Panel.Controls.Add(btnAdd)

 我尝试使用你们的方式动态增加控件，但是我增加的是第三方的控件，跟WinForm.Control的控件类型不兼容。
你们增加控件的方法：e.Form.AddControl(x)
其中x是第三方控件，在编译的守候发生类型不兼容的错误。

目前的问题是，该怎么给动态控件增加自己的事件？

应该可以了，但是每次修改全局代码时，都必须重启Foxtable，非常的不方便。