HFSS中关闭一个分析模型的VBS代码怎么编写啊？

HFSS中关闭一个分析模型的VBS代码怎么编写啊?
现在写出来的打开一个模型的HFSS的VBS文件是这样的：
Dim oAnsoftApp
Dim oDesktop
Dim oProject
Dim oDesign
Dim oEditor
Dim oModule
Set oAnsoftApp = CreateObject("AnsoftHfss.HfssScriptInterface")
Set oDesktop = oAnsoftApp.GetAppDesktop()
oDesktop.RestoreWindow
oDesktop.OpenProject "E:/Project/Project1.hfss"
请高手指教！谢谢！