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 Command1_Click()
Dim lReturn As Long
'Masaüstüne ekle
lReturn = fCreateShellLink("..\..\Desktop", _
"Shortcut to Calculator", "c:\windows\calc.exe", "")
'Program Menü Grubuna ekle.
lReturn = fCreateShellLink("", "Kisayol Hesapmakinesi", _
"c:\windows\calc.exe", "")
'Start up’a ekle.
lReturn = fCreateShellLink("\Startup", " Kisayol Hesapmakinesi ", _
"c:\windows\calc.exe", "")
End Sub