[DOX.1]

كود :

Private Function CreateShortCut(ByVal TargetName As String, ByVal ShortCutPath As String, ByVal ShortCutName As String) As Boolean
   Dim oShell As Object
   Dim oLink As Object
   'you don’t need to import anything in the project reference to create the Shell Object

   Try

       oShell = CreateObject("WScript.Shell")
       oLink = oShell.CreateShortcut(ShortCutPath & "\" & ShortCutName & ".lnk")

       oLink.TargetPath = TargetName
       oLink.WindowStyle = 1
       oLink.Save()
   Catch ex As Exception

   End Try

End Function

هل من الممكن أحد يشرح لي عمل هذه الفانكشن 
وكيف أقدر أستغلها في أنشاء الأختصار