CreateLinkVB

Private Declare Function fCreateShellLink Lib "Vb5stkit.dll" _
(ByVal lpstrFolderName As String, _
ByVal lpstrLinkName As String, _
ByVal lpstrLinkPath As String, _
ByVal lpstrLinkArgs As String) As Long
'se si usa vb4 la dll e' STKIT432.DLL


Private Sub Command1_Click()
'Il primo parametro (lpstrFolderName) si riferisce alla directory Program=

mi
(di solito in c:\windows\menu avvio\programmi)
'per risalire e' necessario usare "..\"


' esempio: crea un collegamento al blocco note sul desktop


Call fCreateShellLink("..\..\Desktop", "Collegamento a notepad",
"c:\windows\notepad.exe", "")