Sub PDFjetPDF1_CloseComplete(Success As Boolean)
Log("PDFjetPDF1_CloseComplete Success="&Success)
If Success Then
Dim Intent1 As Intent
Intent1.Initialize(Intent1.ACTION_VIEW, "file://"&File.Combine(File.DirRootExternal, "pdfjet-test.pdf"))
Intent1.SetType("application/pdf")
Intent1.WrapAsIntentChooser("Open PDF document using:")
StartActivity(Intent1)
End If
End Sub