ejecutar un archivo .lnk

[aigama]

quiero ejecutar un archivo .lnk (un acceso directo) desde la ruta de menú de inicio. He probado con la función "shell" pero me dice que no se puede ejecutar ese programa. Hay alguna manera de hacer esto? Si no, hay alguna manera de buscar el ejecutable que le corresponde al acceso directo medieante algún API?

[vbx3m]

Cuando usas el shell "solo", te permite ejecutar los .exe... Pero usandolo así te permite ejecutar archivos de cualquier extensión

Dim ret As String
ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & ("ruta archivo"))

[aigama]

Gracias por tu consejo!
No lo he probado, pero seguro que funciona. Al final lo he conseguido hacer de la siguiente forma:

Public Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

ShellExecute hwnd, "Open", ProgramName, vbNullString, vbNullString, SW_NORMAL

Aún y todo parece más sencillo lo que tú dices, así que también lo probaré.

[aigama]

Ya he probado lo que propones vbx3m, y funciona perfectamente, y encima es mucho más sencillo. Muchas gracias por tu ayuda!

[vbx3m]

De nada