主题：求一个动态增加按钮的代码

代码写到 全局代码 click事件那里去

 要事先写好代码。不可能允许你动态写入代码的。

 如果要动态写入，你就只能动态编译了

Functions.remove("函数")
Dim Code As String
Code = "msgbox(123)"
Functions.Add("函数",Code)
Functions.Complie()
Dim str = Functions.Execute("函数")
msgbox(str)