呃,加一个全局变量
vars("result") = False
Syscmd.Project.Open(ProjectFile)
在BeforeOpenProject判断
If vars("result") IsNot Nothing AndAlso vars("result") = False Then Return