If job1.Success Then
Dim out As OutputStream = File.OpenOutput(Starter.Provider.SharedFolder, fname, False)
File.Copy2(job1.GetInputStream, out)
out.Close
ProgressDialogHide
If foMenu.IsInitialized Then
If foMenu.MenuIsVisible Then
foMenu.HideFan
End If
End If
Log("file://" & Starter.Provider.SharedFolder & "/" & fname)
Dim in As Intent
in.Initialize(in.ACTION_SEND, "")
in.SetType("application/pdf")
in.PutExtra("android.intent.extra.STREAM", Starter.Provider.GetFileUri(fname))
in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION
StartActivity(in)
End If