Imports Microsoft.Office
Imports PowerPoint = Microsoft.Office.Interop.PowerPoint
 
Public Class Form1
    Public fo As New System.Diagnostics.Process()
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim ppApp As New PowerPoint.ApplicationClass
        Dim pps As PowerPoint.Slide
 
        fo = New System.Diagnostics.Process()
        fo.StartInfo.FileName = "C:\test.ppt"
        fo.Start()
        Timer1.Enabled = True
        fo.WaitForInputIdle()
 
        For Each pps In ppApp.ActivePresentation.Slides
            System.Threading.Thread.Sleep(10)
        Next
        pps = Nothing
        ppApp.ActivePresentation.SaveAs("C:\test-" & Format(Date.Now, _
          "yyyy-mm-dd hhmmss") & ".ppt")
        ppApp.ActivePresentation.Close()
        ppApp.Quit()
        System.Runtime.InteropServices.Marshal.ReleaseComObject(ppApp)
        ppApp = Nothing
 
        If Not fo.CloseMainWindow() Then
            fo.Kill()
        EndIf
        fo = Nothing
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        If Not fo Is Nothing Then
            If fo.HasExited Then
                Timer1.Enabled = False
                MsgBox("HasExited")
            End If
        Else
            Timer1.Enabled = False
        End If
    End Sub
End Class