Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout")
End Sub
Sub Activity_Resume
Dim i As Intent
i = Activity.GetStartingIntent
If i <> Null Then
If i.HasExtra("Settings") Then
If i.GetExtra("Settings") = "stuff" Then
Sleep(1000)
CloseActivity
End If
End If
End If
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub CloseActivity
Dim jo As JavaObject
jo.InitializeContext
jo.RunMethod("finishAndRemoveTask", Null)
End Sub