Sub Label3_Click
Dim FileName As String
Dim j As Intent ' Libreria Phone
FileName = Ficha & ".pdf"
If File.Exists(File.DirRootExternal, FileName) = False Then
File.Copy(File.DirAssets, FileName, File.DirDefaultExternal, FileName)
End If
j.Initialize(j.ACTION_VIEW, "file://" & File.Combine(File.DirDefaultExternal, FileName))
j.SetType("application/pdf")
StartActivity(j)
End Sub