codice:
Private Sub CreaLink(LNK As String, RigaDiComando As String, Icona As String, Optional Argomenti As String = "", Optional CartellaLavoro As String = "", Optional Descrizione As String = "", Optional StileFinestra As Integer = 1)
    'Crea un collegamento al file.
    Dim Shell As Object, Link As Object
    Set Shell = CreateObject("WScript.Shell")
    Set Link = Shell.CreateShortcut(LNK)
    With Link
        .Arguments = Argomenti
        .Description = Descrizione
        '.HotKey = "CTRL+ALT+SHIFT+X"
        .IconLocation = Icona   'NOTA: è possibile assegnare anche un'icona contenuta in un file EXE oppure DLL.
                                'in questo caso, è necessario specificare la posizione dell'icona all'interno del file:
                                'esempio: .IconLocation = "C:\Windows\System\Shell32.dll, 4"
        .TargetPath = RigaDiComando
        'Valori possibili per "StileFinestra:"
        '1 = Finestra normale.
        '3 = Ingrandita.
        '7 = Ridotta a icona.
        .WindowStyle = StileFinestra
        .WorkingDirectory = CartellaLavoro
        .Save
    End With
    
    Set Shell = Nothing
    Set Link = Nothing
    MsgBox "Collegamento creato correttamente.", vbInformation, Me.Caption
End Sub
Questa routine non ti garantisco che funzioni con XP, su 9x/ME la uso