Visual Basic - Crear un acceso directo

Hola a todos. Por fin he acabado mi programilla y me dispongo a empaquetarlo. Mi pregunta es: ¿alguien sabe si con el empaquetador que incorpora VIsual Studio 6.0 se puede añadir o crear un acceso directo en el escritorio de la aplicacion que he creado?
Gracias a todos...

Que yo sepa, eso no se puede hacer en el empaquetador de visual studio 6, pero por si te sirve de ayuda, puedes echarle un vistazo a este código:

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/127-crear-acceso-directo.htm

Un saludo.

Hola Amigo:

Aquí te va código para crear un acceso directo, este código lo puedes insertar donde desees solo copialo y luego ajustalo a tus necesidades..

Private Sub Command1_Click()
Dim ws As Object
Dim sct As Object

Set ws = CreateObject("Wscript.Shell")
'Para el escritoprio

'La ruta en Windows XP y 2000 es…
On Error Resume Next

If Not (fso.FolderExists("C:\Documents and Settings\All Users\")) Then
'La ruta en las versiones anteriores de Windows es…
Set st = ws.CreateShortcut("C:\Windows\Menú Inicio\Programas\Inicio\micas v7.0.lnk")
GoTo paratodos
Else
'La ruta en en Windows XP y 2000 es…
On Error Resume Next
Set st = ws.CreateShortcut("C:\Documents and Settings\ All Users\Menú Inicio\Programas\Inicio\micas v7.0.lnk")
End If

paratodos:
'La carpeta que contiene al archivo de destino
st.WorkingDirectory = App.Path

'El estado inicial de la ventana al ejecutar el Acceso Directo
'st.WindowStyle = 1 'En Ventana normal
st.WindowStyle = 7 'En Ventana minimizada
'st.WindowStyle = 3 'En Ventana maximizada

'cualquier descripción que queramos colocarle al Acceso Directo
st.Description = ""

'La Ruta y nombre exacto del archivo de Destino del Acceso Directo
st.TargetPath = App.Path & "\micas v7.0.exe"

'Esta es la orden más IMPORTANTE, la que se encarga de Crear el Acceso Directo.
st.Save
Unload Me
End Sub

Espero que te resuelva Salu2

Rafael

Gracias a todos por vuestra ayuda...