...sto facendo il post da solo, eheh...ma va bene..sto imparando.

allora..
mi sa che posso fare tutto con il seguente codice:

codice:
Option Explicit


Const APPLICATION_DATA = &H1A&



Public Sub CreateShellLink2()
Dim MyShortcut
Dim QuickLaunchPath

Dim objShell
Dim objFolder
Dim objFolderItem
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(APPLICATION_DATA)
Set objFolderItem = objFolder.Self

On Error Resume Next
Dim WSHShell
Set WSHShell = CreateObject("WScript.Shell")

  If Not WSHShell Is Nothing Then
  
  QuickLaunchPath = objFolderItem.Path & "\Microsoft\Internet Explorer\Quick Launch"
  Set MyShortcut = WSHShell.CreateShortCut(QuickLaunchPath & "\MyApp.lnk")
  MyShortcut.TargetPath = "c:\MyPath\MyApp.exe"
  MyShortcut.WorkingDirectory = "c:\MyPath"
  MyShortcut.WindowStyle = 1
  MyShortcut.Arguments = ""
  MyShortcut.IconLocation = "c:\MyPath\MyApp.exe,0"
  MyShortcut.Save
  
  Set MyShortcut = Nothing

  End If

End Sub

..per l'icona sulla quick launch bar (quella sotto) funziona.

...sto provando sul desktop e sul menu avvio (in questo caso, elimino le api)...

vai che ce la fò!!!