Private G_PDF_App As Acrobat.CAcroApp

        ''' <summary> Flatten anotations and objects in the PDF. Warning: unreversible changes! This makes annotations viewable nativly on the iPad. </summary>

        Public Sub PDF_Flatten(ByVal Path As String)

            Try

                If G_PDF_App Is Nothing Then

                    G_PDF_App = CType(CreateObject("AcroExch.App"), Acrobat.CAcroApp)

                End If

                Dim AVDoc As Acrobat.CAcroAVDoc

                Dim PDDoc As Acrobat.CAcroPDDoc

                Dim jso As Object

                PDDoc = CType(CreateObject("AcroExch.PDDoc"), Acrobat.CAcroPDDoc)

                If PDDoc.Open(Path) Then

                    ' Create AV doc from PDDoc object 

                    AVDoc = PDDoc.OpenAVDoc("TempPDF")

                    ' Hide Acrobat application so everything is done in silent mode 

                    G_PDF_App.Hide()

                    ' Create Javascript bridge object 

                    jso = PDDoc.GetJSObject

                    Dim tg = jso.flattenPages()

                    If Not PDDoc.Save(1, Path) Then

                        Log.WriteLine("could not flatten file")

                    End If

                    AVDoc.Close(0)

                    PDDoc.Close()

                End If

                jso = Nothing

                PDDoc = Nothing

                G_PDF_App.Exit()

                G_PDF_App = Nothing

            Catch ex As Exception

                Log.WriteLine("Error: PDF_Flatten")

            End Try

        End Sub