Dim i As Intent
Dim PowerPointSample As String
File.Copy(File.DirAssets, "MxAgCrProd.ppt", File.DirDefaultExternal, "MxAgCrProd.ppt")
PowerPointSample = "file:///" & File.Combine(File.DirDefaultExternal, "MxAgCrProd.ppt")
i.Initialize(i.ACTION_VIEW, PowerPointSample)
'i.SetComponent("com.dataviz.docstogo/com.dataviz.dxtg.sstg.control.android.SlideShowToGoActivity")
i.SetType("application/vnd.ms-powerpoint")
i.AddCategory("android.intent.category.DEFAULT")
StartActivity(i)