app.EXENameapp的属性还有好多，比如程序的进程程序的存放地址程序名称啥的
获取程序自身的文件名用:text1.text = app.name获取路径用：text2.text = app.path
app.EXEName例子Private Sub Form_Load()MsgBox App.EXENameEnd Sub
