Sub create
Dim shortcutIntent As Intent
shortcutIntent.Initialize("", "")
shortcutIntent.Action=shortcutIntent.ACTION_MAIN
shortcutIntent.SetComponent("b4a.example/.act2") ' اسم پکیج نیم و همچنین اسم اکتیویتی مورد نظر
Dim in As Intent
in.Initialize("", "")
in.PutExtra("duplicate",False)
in.PutExtra("android.intent.extra.shortcut.INTENT", shortcutIntent)
in.PutExtra("android.intent.extra.shortcut.NAME", "salmana") ' اسم آیکون شورتکات
in.PutExtra("android.intent.extra.shortcut.ICON", LoadBitmap(File.DirAssets,"ic_android.png"))' اندازه آیکون حتما ۷۲ در ۷۲ باشه چون اگر اندازه دیگه بدین رو گوشیهای دیگه کامل نشون نمیده. بهترین کار اینه که از ریسورس استفاده بشه ولی چون برای من که گوشی نوت ۵ با اندروید ۶ دارم نشون نداد و ایکن پیشفرض رو بجاش گذاشت دیگه نظرم اینه که عکس از دایراسست بدین و اندازه ۷۲ در ۷۲ که رو همه هم جواب میده
in.Action = "com.android.launcher.action.INSTALL_SHORTCUT"
Dim p As Phone
p.SendBroadcastIntent(in)
DoEvents
End Sub

Sub remove
	Dim shortcutIntent As Intent
shortcutIntent.Initialize("", "")
shortcutIntent.Action=shortcutIntent.ACTION_MAIN
shortcutIntent.SetComponent("b4a.example/.act2") ' اسم پکیج نیم و همچنین اسم اکتیویتی مورد نظر
Dim in As Intent
in.Initialize("", "")
in.PutExtra("android.intent.extra.shortcut.INTENT", shortcutIntent)
in.PutExtra("android.intent.extra.shortcut.NAME", "salmana") ' اسم آیکون شورتکات
in.Action = "com.android.launcher.action.UNINSTALL_SHORTCUT"
Dim p As Phone
p.SendBroadcastIntent(in)
DoEvents
End Sub

SetActivityAttribute(act2, android:exported, true)