Sub Button1_Click
CallSubDelayed2(Me, "EditArticleDetails", EditText1.Text)
End Sub
Sub EditArticleDetails(strId As String)
Log("#-EditArticleDetails, strId=" & strId)
Dim mapX As Map : mapX.Initialize
mapX.Put("strTitle", "Edit article with Id " & strId)
mapX.Put("strInitText1", "Testtext Habbeldi")
mapX.put("strId", strId)
mapX.put("somevaluethatwillbeavailableinthecallbackfunction", 42)
mapX.Put("CallBackSub", "EditArticleDetails_Return")
CallSubDelayed3(Activity2, "Initialize", Me, mapX )
End Sub
'