Sub Button1_Click
Dim Intent1 As Intent
Intent1.Initialize(intent1.ACTION_VIEW, "file://" & File.Combine(directory & "/", Value))
intent1.SetComponent("android/com.android.internal.app.ResolverActivity")
intent1.SetType("application/pdf")
StartActivity(intent1)
End Sub