Public Sub pdfToBMP (pdf_path As String) As Bitmap 'ignore
Try
Dim parcel As JavaObject
parcel.InitializeStatic("android.os.ParcelFileDescriptor")
Dim f As JavaObject
f.InitializeNewInstance("java.io.File",Array As String(pdf_path))
Dim p As Object = parcel.RunMethod("open",Array(f, 268435456))
Dim pdfRenderer As JavaObject
pdfRenderer.InitializeNewInstance("android.graphics.pdf.PdfRenderer",Array(p))
Dim page As JavaObject = pdfRenderer.RunMethod("openPage",Array(0))
Dim bmp As Bitmap
bmp.InitializeMutable(page.RunMethod("getWidth",Null),page.RunMethod("getHeight",Null))
Dim Rect1 As Rect
Rect1.Initialize(0, 0, page.RunMethod("getWidth",Null), page.RunMethod("getHeight",Null))
page.RunMethod("render",Array(bmp, Null, Null,2))
page.RunMethod("close",Null)
pdfRenderer.RunMethod("close",Null)
Return bmp
Catch
Log(LastException)
End Try
End Sub