Создать ярлык к сторонней программе

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim oShortCut As IWshRuntimeLibrary.WshShortcut 'Объект для ярлыка

Dim oWshShell As New IWshRuntimeLibrary.WshShell 'Объект для оболочки

'Путь к рабочему столу

Dim sDesktopDir As String = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory)

'Создаем ярлык

oShortCut = CType(oWshShell.CreateShortcut(sDesktopDir & "\Ярлычищщщще.lnk"), IWshRuntimeLibrary.WshShortcut)

'Изменяем свойства ярлыка и сохраняем его

With oShortCut

.TargetPath = "C:\Windows\System32\Spider.exe" 'Путь к исполняемому файлу

.WindowStyle = 1 'Состояние окна

.Description = "Ярлык к моей программе" 'Описание ярлыка, которое появится во всплывающей подсказке

.WorkingDirectory = "C:\Windows\System32" 'Рабочая папка"

.IconLocation = "C:\Windows\System32\Spider.exe" & ", 0" 'Иконка для ярлыка. Первая в том файле, на который ссылаемся

.Save() 'Сохраняем ярлык на рабочий стол

End With

End Sub

Что еще можно почитать