Ejecutar .lnk

itziar
17 de Junio del 2003
Necesito sabe como puede ejecutar desde Visual un .lnk (acceso directo). He probado con el siguiente codigo pero no funciona.

Dim ret as long
Dim NombreAcceso as string

NombreAcceso = "C:Prueba.lnk"
ret = shell("start" & NombreAcceso)