Hi kourosh,

If you have no time to learn it's ok. You can use it first and learn later.

------------------
Option Explicit
Declare Function OSfCreateShellLink Lib "VB5STKIT.DLL" Alias "fCreateShellLink" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String) As Long

Private Sub CreateShellLink()
Call OSfCreateShellLink("", "Research", "c:\windows\desktop\rnd\rnd.exe", "" & "")
End Sub

You can see the meaning of the parameters from its declaration.

'cos I have no time to explain, I have to go now.


Does it help ?

Regards