public Sub ExitApp ' intentional exit
Try
Dim jo As JavaObject
jo.InitializeContext
jo.RunMethod("finishAffinity", Null)
ExitApplication
Catch
Log("ExitApp " & LastException.Message)
ShowError("modFun_ExitApp " & LastException.Message)
End Try
End Sub