Visual Basic - ejecucion de accesos directos

me pueden ayudar con esto?
tengo una carpeta, dentro de ella tengo un acceso directo.
quiero hacer una aplicacion que al ejecutarla esta tenga un boton, y al hacer clic en este boton se ejecute el acceso directo que esta en dicha carpeta.
saludos

Con este codigo puedes correr cualquier extension

Private 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

Private Const SW_SHOWNORMAL = 1

En algun boton...

ShellExecute Me.hWnd, "open", "archivo.lnk", _
vbNullString, vbNullString, SW_SHOWNORMAL