Программно создать ярлык к программе - VB

Формулировка задачи:

День добрый понадобилось создать ярлык к моей программе. можете подсказать как это программно реализовать спасибо

Извиняюсь уже нашёл.

Решение задачи: «Программно создать ярлык к программе»

textual
                            Листинг программы 
                        

                            'Создание/изменение ярлыка
Private Sub CreateLink(ByVal LinkFullName As String, ByVal LinkTargetPath As String, _
    Optional ByVal LinkArguments As String = "", Optional ByVal LinkWorkingDirectory As String = "", _
    Optional ByVal LinkIconLocation As String = ",0", Optional ByVal LinkHotkey As String = "", _
    Optional ByVal LinkWindowStyle As Long = WshNormalFocus, Optional ByVal LinkDescription As String = "")
    Dim oShellLink As Object
    'Создание Объекта WshShortcut
    Set oShellLink = WshShell.CreateShortcut(LinkFullName)
    With oShellLink
        'Передаем аргументы командной строки
        .Arguments = LinkArguments
        'Устанавливаем описание ярлыка
        .Description = LinkDescription
        'Устанавливаем клавиши быстрого вызова
        .Hotkey = LinkHotkey
        'Устанавливаем значек
        .IconLocation = LinkIconLocation
        'Устанавливаем путь к файлу
        .TargetPath = LinkTargetPath
        'Устанавливаем стиль запуска
        .WindowStyle = LinkWindowStyle
        'Устанавливаем рабочий каталог
        .WorkingDirectory = LinkWorkingDirectory
    End With
    'Сохраняем ярлык
    oShellLink.Save
    'Освобождаем объект WshShortcut
    Set oShellLink = Nothing
End Sub
                        