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","")
EndSub->