[vb6] - WNI o API ??

[vtr2009]

sto rislvendo cosi:


se per creare l'icona sul desktop ci vuole il seguente codice (che funziona):

'Crea sul DESKTOP
'C:\Documents and Settings\<nome utente>\Desktop
Public Sub LinkShellDesktop(Optional NameLinkAppl As String)
    AppPath = App.Path
    If Right$(AppPath, 1) <> "\" Then AppPath = AppPath & "\"
    AppPath = AppPath & App.EXEName & ".exe"
    If NameLinkAppl = "" Then
        NameLinkAppl = App.Title
    End If
    
    Call CreateShellLink(VisualBasicUnknown, "..\..\Desktop", NameLinkAppl, AppPath)

End Sub

e per creare sul menu di avvio:

'Crea nel MENU AVVIO (TryBar - a sin)
Public Sub LinkShellMenuAvvio(Optional NameLinkAppl As String)
    AppPath = App.Path
    If Right$(AppPath, 1) <> "\" Then AppPath = AppPath & "\"
    AppPath = AppPath & App.EXEName & ".exe"
    If NameLinkAppl = "" Then
        NameLinkAppl = App.Title
    End If
    Call CreateShellLink(VisualBasicUnknown, ".", NameLinkAppl, AppPath)
End Sub

dovrebbe funzionare anche il seguente:

'Crea nella BARRA AVVIO VELOCE IN BASSO (quick launch bar)
'C:\Documents and Settings\<UserName>\Application Data\Microsoft\Internet Explorer\Quick Launch
Public Sub LinkShellBarraAvvioVeloce(Optional NameLinkAppl As String)
    AppPath = App.Path
    If Right$(AppPath, 1) <> "\" Then AppPath = AppPath & "\"
    AppPath = AppPath & App.EXEName & ".exe"
    If NameLinkAppl = "" Then
      NameLinkAppl = App.Title
    End If
    
    Call CreateShellLink(VisualBasicUnknown, "..\..\Application Data\Microsoft\Internet Explorer\Quick Launch", NameLinkAppl, AppPath)

End Sub

... ma non funziona!!
mi sa che è il path della barra sbagliato.
...ci sto studiando...