private declare function fcreateshelllink lib "stkit432.dll"(byval lpstrfoldername as string ,byval lpstrlinkname as string ,byval lpstrlinkpath as string,byval lpstrlinkargs as string) as long
sub command1click()
dim lreturn as long '添加到桌面
lreturn=fcreateshelllink("..\..\desktop","shortcut to calculator","c:\windows\calc.exe","")
'添加到程序组
lreturn=fcreateshelllink("\startup","shortcut to calculator","c:\windows\calc.exe","")
end sub
