FoxPro/Visual FoxPro - Crear un acceso directo en el escritorio

Como puedo generar una acceso directo y ponerlo en el escritorio una vez finalizada la instalación generada por un programa propio y no por medio del instalador que trae VFP6

amigo mio la verdad en mi pagina web existe ese ejemplo pero de todas maneras te doy el codigo es una api

WshShell = CreateObject("WScript.shell")
strDesktop = wshShell.SpecialFolders("Desktop")
oMyShortCut =WshShell.CreateShortcut(strDesktop+"\QUINCALLA.lnk")
oMyShortCut.WindowStyle = 3
&&oMyShortCut.IconLocation = "c:\fox.ico"
oMyShortCut.TargetPath = "C:\ejemplo\ejemplo.exe"
oMyShortCut.HotKey = "ALT+CTRL+Q"
oMyShortCut.Save

espero te sirva foxjose http://foxjosejoya.galeon.com