FoxPro/Visual FoxPro - ACCSO DIRCTO

oWsh = CreateObject("WScript.Shell")
cDesktopDir = oWsh.SpecialFolders("Desktop")
oLnk = oWsh.CreateShortcut(cDesktopDir + "\\Shortcut to Notepad.lnk")
oLnk.TargetPath = cDesktopDir + "\\notepad.lnk"
oLnk.Save()

no se sabe cual es el problema que expones, revisa por favor tu pregunta.

DISCULPEN POR EL ERROR, PERO ESTE CODIGO ME CREA EL ACCESO DIRECTO AL EJECUTABLE, PERO NO LE PONE EL ICONO, ESE ES EL PROBLEMA, LO COLOCA EL ICONO DESPUES DE EJECUTAR EL ACCESO DIRECTO.