Sub Page1_BarButtonClick (Tag As String)
Select Tag
Case "about"
Case "share"
Dim MeinText As String
MeinText="»Grundumsatz« verrät Dir Deinen Grundumsatz ..."
Dim avc As ActivityViewController
avc.Initialize("avc", Array(MeinText, LoadBitmap(File.DirAssets, "gu_screen.PNG")))
avc.Show(Page1, Page1.RootPanel)
End Select
End Sub