PRivateDeclareFunctionfCreateShellLinkLib"STKIT432.DLL"(ByVallpstrFolderNameAsString,ByVallpstrLinkNameAsString,ByVallpstrLinkPathAsString,ByVallpstrLinkArgsAsString)AsLong
SubComando1_Clic()
DimlReturnAsLong
'Agregar al escritorio
lReturn=fCreateShellLink("../../Desktop","ShortcuttoCalculator","c:/windows/calc.exe","")
'Agregar al grupo de programas
lReturn=fCreateShellLink("","ShortcuttoCalculator","c:/windows/calc.exe","")
'Agregar al grupo de inicio
lReturn=fCreateShellLink("/Inicio","ShortcuttoCalculator","c:/windows/calc.exe","")
FinSub->