1、必须这样绑定事件
http://www.foxtable.com/help/topics/2374.htm
2、动态编译
Functions.remove("函数")Dim Code As StringCode = "msgbox(123)"Functions.Add("函数",Code)Functions.Complie()Functions.Execute("函数")