Dim PathName As String = File.DirDefaultExternal
Dim FileName As String = "tutorial.apk"
'Copy the file from the DirAssets to the target location
File.Copy(File.DirAssets, FileName, PathName, FileName)
'Install the apk from the target location into the device
Dim Result As Boolean = Root.InstallApk(PathName, FileName)