Italian creare shortcut sulla home

Dim i As Int

For i = 0 To 1
    If i = 0 Then apkName = "test1"
    If i = 1 Then apkName = "test2"
    iLib2.CreateEmptyShortCut ( apkName )
Next

Msgbox("ciao", "")
Activity.Finish

Public Sub CreateEmptyShortCut ( aApkName As String )
'Dim PrefMgr As PreferenceManager
'If PrefMgr.GetBoolean(aShortName) Then Return

'Log("Creo: " & aShortName )

Dim shortcutIntent As Intent
shortcutIntent.Initialize("", "")
shortcutIntent.SetComponent("it.android.imgspa." & aApkName & "/.main")
shortcutIntent.PutExtra("name", aApkName)
'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", "Label")
In.PutExtra("android.intent.extra.shortcut.ICON", LoadBitmap(File.DirAssets, aApkName & ".png")) '72x72
In.Action = "com.android.launcher.action.INSTALL_SHORTCUT"

Dim p As Phone
p.SendBroadcastIntent(In)
'PrefMgr.SetBoolean(aShortName, True)
End Sub