Private Declare Function FcreateshellLink Lib "Stkit432.dll" (Byval LpstrlinkName As String, Byval LpstrlinkPath AS String, Byval LPSTRLINKARGS AS STRING) AS Long
SUB Command1click ()
DIM LRETURN AS long 'Add to Desktop
Lreturn = fcreateshelllink ("../../ Desktop", "Shortcut to Calculator", "C: /Windows/calc.exe", "" "
'Add to program group
Lreturn = FcreateshellLink ("/ Startup", "Shortcut to Calculator", "C: /Windows/calc.exe", "" "
End Sub
