Visual Basic - Optimizar el acceso directo

ya consegui lo del acceso:
Dim X As Long
X = Shell("rundll32.exe AppWiz.Cpl,NewLinkHere " & "c:\Windows\Menú Inicio\Programas\Inicio\", 1)
pero quisiera que no se pregunte por la ruta del archivo a linkear...sino que directamente me linkee mi archivo (esté en la carpeta que esté)

Private Declare Function fCreateShellLink Lib "VB5STKIT.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long

Private Sub Form_Load()
resultado = fCreateShellLink("..\..\Menú Inicio\Programas\Inicio", "LINK", "C:\xxxxxx.exe", "")
End Sub

El primer parametro, es el lugar donde lo quieres guardar, el segundo es el nombre del LINK, el tercero es la direccion del programa, y el cuarto son parametros del programa.

Atte.,
Eduardo

Gracias!...lo voy a probar

lo probé pero no anduvo : (.....que pudo fallar?