Visual Basic - Crear Acceso Directo

Como hago para crear un acceso directo de un programa

Con scripting de shell lo podes hacer, esta es una forma:

loShell=CreateObject("wscript.Shell")

loShortcut=loShell.CreateShortcut("Acceso directo.lnk")

WITH loShortcut
.TargetPath=<path>
.WorkingDirectory=<directorio>
.WindowStyle=<estilo de la ventana>
.Save
ENDWITH