Sub Activity_Resume
ShareIntent = Activity.GetStartingIntent
ToastMessageShow(ShareIntent.Action,False)
If ShareIntent.Action = "android.intent.action.SEND" Then
Dim ShareString As String
ShareString = ShareIntent.GetExtra("android.intent.extra.STREAM")
ToastMessageShow("Share : " & ShareString, False)
Else
ToastMessageShow("No Share action!", False)
Activity.Finish
End If
End Sub