La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  298 - ACCESOS DIRECTOS EN VISUAL BASI
Autor:  Jaime
Deseo saber como crear accesos directos por medio de comandos con Visual Basic
  Respuesta:  Antonio Esteban Soria
No se si se pueden crear accesos directos desde Visual Basic, pero te adjunto otra solución:

Si copias archivos .LNK o .PIF al directorio ´C:\WINDOWS\ESCRITORIO´ y ejecutas el comando DoEvents de Visual Basic te aparecerá automáticamente el acceso directo (creado previamente y copiado a otro sitio) dentro del escritorio de windows.
Lo malo de este procedimiento es que debes crearte el archivo .LNK o .PIF antes de poder incluirlo dentro del escritorio.

Con mis mejores intenciones, espero que te sirva de ayuda.

Para cualquier problema o duda ruego me envíes un mail.

Un Saludo.

  Respuesta:  Fernando Castro
Ante todo saludos
No se exactamente que es lo que quieres hacer.
Con respecto a los accesos directos, existe una manera mediante la API de Windows de llamar al asistente apara accesos directos.( lo quee sale cuando en el escritorio pones Nuevo-> Acceso directo).
El codigo corresondiente para esto es el Siguiente :

Simplemente :

Dim X As Long
X = Shell("rundll32.exe AppWiz.Cpl,NewLinkHere " & "c:\MiDirectorio\", 1)
Siendo MiDirectorio el directorio donde queremos que quede el acceso directo. Debe acabar en barra (\).
Saludos y esperando que te sirva