Italian Icona sul desktop.

Sub IconaDesktop
    Dim PrefMgr As PreferenceManager
   If PrefMgr.GetBoolean("shortcutinstalled") Then
      Return
   End If
  
   Dim shortcutIntent As Intent
   shortcutIntent.Initialize("", "")
   shortcutIntent.SetComponent("com.multidataitalia.siscoapp/.main") ' Put the app package name here
  
   Dim In As Intent
   In.Initialize("", "")
   In.PutExtra("android.intent.extra.shortcut.INTENT", shortcutIntent)
   In.PutExtra("android.intent.extra.shortcut.NAME", "SiscoApp") ' Put you're application name here
   In.PutExtra("android.intent.extra.shortcut.ICON", LoadBitmap(File.DirAssets, "iconasiscoapp.jpg")) ' If you have the icon file in the assets, you just need any bitmap here. Best is 72x72 pixels because launchers do not scale. You might want to experiment a little bit with size
  
   ' Here starts the real action that all the other posts had missing:
        ' How to get this OUT of your app to the launcher
        ' You need to send a broadcast, that's all :-)
   In.Action = "com.android.launcher.action.INSTALL_SHORTCUT"
  
   Dim p As Phone
   p.SendBroadcastIntent(In)
  
   PrefMgr.SetBoolean("shortcutinstalled", True)
End Sub

AddManifestText(
<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="26"/>
<supports-screens android:largeScreens="true"
    android:normalScreens="true"
    android:smallScreens="true"
    android:anyDensity="true"/>)
    
AddApplicationText(
<activity android:windowSoftInputMode="stateHidden" android:launchMode="singleTop" android:name="shortcutactivity"
            android:label="Add Shortcut" android:screenOrientation="unspecified">
         <intent-filter>
                <action android:name="android.intent.action.CREATE_SHORTCUT"/>
                <category android:name="android.intent.category.DEFAULT"/>
            </intent-filter>
      </activity>   
)   
    
    
SetApplicationAttribute(android:icon, "@drawable/icon")
SetApplicationAttribute(android:label, "$LABEL$")
CreateResourceFromFile(Macro, Themes.DarkTheme)
'End of default text.
SetActivityAttribute(main, android:theme, @android:style/Theme.Translucent.NoTitleBar)

AddPermission(com.android.launcher.permission.INSTALL_SHORTCUT)

AddManifestText(
<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="26"/>
<supports-screens android:largeScreens="true"
    android:normalScreens="true"
    android:smallScreens="true"
    android:anyDensity="true"/>)
    
 
    
SetApplicationAttribute(android:icon, "@drawable/icon")
SetApplicationAttribute(android:label, "$LABEL$")
CreateResourceFromFile(Macro, Themes.DarkTheme)
'End of default text.
SetActivityAttribute(main, android:theme, @android:style/Theme.Translucent.NoTitleBar)
AddPermission(com.android.launcher.permission.INSTALL_SHORTCUT)