La Web del Programador: Comunidad de Programadores
 
    Pregunta:  22600 - EJECUTAR ACCESO DIRECTO
Autor:  Norberto Soler
Como se hace para ejecutar desde VB un acceso directo

  Respuesta:  Dan Jared Gonzalez Simon
Para ejecutar accesos directos .lnk puedes utilizar el star.

Private Sub Ejecutar (Archivo as String)
dim a as long
a = Shell("Start" & Archivo)
End Sub

Nota. El archivo debe estar en formato corto ya sabes (C:\Archiv~1\mi.lnk y no C:\Archivos de Programas\mi.lnk) y lo bueno del Star es que puedes ejecutar cualquier otro tipo de archivos, ya que el Star se encarga de buscar el programa encargado de abrirlo.