FoxPro/Visual FoxPro - Agregar un icono de acceso directo a mi proyecto

Buenas: tengo un proyecto por entregar. Ya lo tengo terminado, y he generado el ejecutable y el app, mi pregunta es cómo puedo poner un icono para que en vez del zorro de foxpro me salga el que yo desee como acceso directo a la aplicación???gracias

con este codigo que se debe ejecutar al acabar la instalacion (o bien al ejecutar la primera vez el ejecutable)

&& crear un acceso directo de VFP
Public Ruta
set defa to &ruta
WshShell=CreateObject("WScript.shell")
strDesktop=wshShell.SpecialFolders("Desktop")
oMyShortcut=WshShell.CreateShortcut(strDesktop+"\SisFact2001.lnk")
oMyShortcut.WindowStyle=1
oMyShortcut.IconLocation="&ruta"+"\iconos\btc.ico"
oMyShortcut.TargetPath="&ruta"+"\proyecto\btc2000.exe"
oMyShortcut.Save
=messagebox("Acceso Directo a SisFact2001 creado en Escritorio",0+32,"Acceso Directo")

Espero que te sirva