FoxPro/Visual FoxPro - ACCESO DIRECTO

PORQUE EL SIGUIENTE CODIGO, NO PONE EN EL ESCRITORIO EL ICONO DEL ACCESO DIRECTO, O MEJOR DICHO EL ICONO DEL SISTEMA EL CUAL HACE EL ACCESO, EL ARCHIVO EXE TIENE INCLUIDO UN ICONO Y NO LO COLOCA EN EL ESCRITORIO, APARECE DESPUES DE EJECUTARSE CON DOBLE CLICK EL ACCESO DIRECTO, EL CODIGO ES:
oWsh = CreateObject("WScript.Shell")
cDesktopDir = oWsh.SpecialFolders("Desktop")
oLnk = oWsh.CreateShortcut(cDesktopDir + "\\Shortcut to Notepad.lnk")
oLnk.TargetPath = cDesktopDir + "\\notepad.lnk"
oLnk.Save()