VB 6.0 PowerPoint automation SaveAs problem

[David C. Johnson]

Hello,
Whenever I try to save a Office XP presentation with my VB 6.0 application
as any other type it fails. The new file is created but it is smaller in
size. SaveAs throws to my error handling.......

When I do a SaveAs through the PP app, the file size increases dramatically
but is a success.

I would really like the Visible flag to be False as well but it crashes when
I try that. Why is that? I can set Word and Excel to False and they run
OK.

Thanks,
David

Here is my code:

Private m_PPTApp As PowerPoint.Application
Private m_PPTPres As PowerPoint.Presentation
Set m_PPTApp = CreateObject("Powerpoint.Application")
m_PPTApp.Visible = True
Set m_PPTPres = m_PPTApp.Presentations.Open(strFileName)

'do a bunch of processing

m_PPTApp.ActivePresentation.SaveAs strNewFileName, ppSaveAsPowerPoint3, True
'm_PPTPres.SaveAs strNewFileName, ppSaveAsPowerPoint3