Sub Globals
Private parentActivity As Activity
End Sub
Sub Button1_Click
CallSubDelayed2(parentActivity, "processResult", Activity.Title)
End Sub
Sub start(act As Activity)
parentActivity = act
MsgboxAsync("Called from " & parentActivity.Title,"Info")
End Sub
Public Sub processResult(result As String)
MsgboxAsync("Result is " & result, "Info")
End Sub