PRivateDeclareFunctionfCreateShellLinkLib "STKIT432.DLL" (ByVallpstrFolderNameAsString, ByVallpstrLinkNameAsString, ByVallpstrLinkPathAsString, ByVallpstrLinkArgsAsString) AsLong
คำสั่งย่อย1_คลิก()
DimlReturnAsLong
'เพิ่มไปยังเดสก์ท็อป
lReturn=fCreateShellLink("../../Desktop","ShortcuttoCalculator","c:/windows/calc.exe","")
'เพิ่มเข้ากลุ่มโปรแกรม'
lReturn=fCreateShellLink("","ทางลัดเครื่องคิดเลข","c:/windows/calc.exe","")
'เพิ่มในกลุ่มเริ่มต้น
lReturn=fCreateShellLink("/Startup","ShortcuttoCalculator","c:/windows/calc.exe","")
สิ้นสุดย่อย ->