Sub Activity_Create(FirstTime As Boolean)
Try
Dim update As Phone
Dim kodi As Intent
Dim pm As PackageManager
update.Shell("sh /sdcard/update.sh", Null, Null, Null)
Wait(10)
Msgbox ("Try it now", "")
Catch
ToastMessageShow ("Failed to launch app! Is it installed?", True)
End Try
Activity.Finish
End Sub
Sub Wait(Seconds As Int)
Dim Ti As Long
Ti = DateTime.Now + (Seconds * 1000)
Do While DateTime.Now < Ti
DoEvents
Loop
End Sub