[原创]vb 中调用powerpoint 对象错误2

[个人原创，如转载请说明出处]

错误提示："Hiding the application window is not allowed" 

在使用vb开发powerpoint程序时候，根据需要有时候会隐藏ppt窗口，使用以下语句将会返回上述错误：

Sub xl_start()
Dim xl As Object
Set xl=CreateObject("Excel.Application.9")
xl.Visible=True
xl.Visible=False
End Sub

那么，该如何解决呢？使用以下语句就可以了：
Dim Mypp As PowerPoint.Presentation
Set Myp = New PowerPoint.Application

Set Mypp = Myp.Presentations.Open(pptname, , , msoFalse)