Dim shortcutIntent As Intent
shortcutIntent.Initialize("", "")
shortcutIntent.SetComponent("b4a.example/.main")
shortcutIntent.PutExtra("name", Value)
shortcutIntent.PutExtra("from_shortcut", True)
Dim In As Intent
In.Initialize("", "")
In.PutExtra("android.intent.extra.shortcut.INTENT", shortcutIntent)
In.PutExtra("android.intent.extra.shortcut.NAME", Value)
In.PutExtra("android.intent.extra.shortcut.ICON", LoadBitmap(File.DirAssets, "icon.png"))
In.Action = "com.android.launcher.action.INSTALL_SHORTCUT"
Phone1.SendBroadcastIntent(In)
Activity.Finish