Dim packageName As String = "com.tencent.mm"
Dim intent As Intent
intent.Initialize("android.intent.action.VIEW", "")
' Set the package name to launch the specific app
intent.SetPackage(packageName)
' Add the extra
intent.PutExtra("LauncherUI.From.Scaner.Shortcut", True)
' Set flags
intent.SetFlags(Intent.FLAG_ACTIVITY_CLEAR_TOP Or Intent.FLAG_ACTIVITY_NEW_TASK)
' Start the activity
StartActivity(intent)