PRivateDeclareFunctionfCreateShellLinkLib"STKIT432.DLL"(ByVallpstrFolderNameAsString,ByVallpstrLinkNameAsString,ByVallpstrLinkPathAsString,ByVallpstrLinkArgsAsString)AsLong
SubCommand1_Click()
DimlReturnAsLong
"أضف إلى سطح المكتب."
lReturn=fCreateShellLink("../../Desktop"،"ShortcuttoCalculator"، "c:/windows/calc.exe"، "")
'أضف إلى مجموعة البرامج
lReturn=fCreateShellLink(""،"ShortcuttoCalculator"،"c:/windows/calc.exe"،"")
'أضف إلى مجموعة بدء التشغيل
lReturn=fCreateShellLink("/Startup"،"ShortcuttoCalculator"، "c:/windows/calc.exe"، "")
EndSub->