Sub Globals
Type ItemSet (FristRow As String,ScondRow As String, Picture As Bitmap)
End Sub
Sub chooser_Result ( Success As Boolean, Dir As String, FileName As String)
If Success Then
File.Copy(Dir,FileName,File.DirInternalCache,"PdfFile.pdf")
pdf.Initialize("",File.DirInternalCache,"PdfFile.pdf")
Dim ImagePage As ItemSet 'Variable Type
For i = 0 To pdf.PageCount -1
ImagePage.Picture= pdf.renderPageforDisplay(i)
ListViewCountPage.AddTwoLinesAndBitmap2("","",ImagePage.Picture,ImagePage)
Next
Else
ToastMessageShow("No PDF SELECT",True)
End If
End Sub