Как создать ярлык через Visual Basic 2010⁠⁠

Я сделал программу для Windows и пишу для неё установщик. И столкнулся с проблемой: надо создать ярлык. Нашёл, что мне поможет: библиотека Interop.IWshRuntimeLibrary. (ссылка на скачивание). С кодом чуть-чуть сложнее:

Try
Dim k As String = TextBox1.Text
Dim WshShell As New WshShell
Dim shortcut As WshShortcut
shortcut = WshShell.CreateShortcut(TextBox1.Text & TextBox2.Text & ".lnk")
With shortcut
.TargetPath = TextBox3.Text
.WindowStyle = 1
.IconLocation = TextBox3.Text & ", 0"
.Arguments = ""
.Save()
End With
WshShell = Nothing
shortcut = Nothing
Catch
MsgBox("Не получилось!", vbCritical)
End Try

В TextBox1 должно быть указано, где лежит ярлык, в TextBox2 - его имя (ну как имя файла), в TextBox3 - файл, на который этот ярлык будет ссылаться. При ошибке программа выдаст сообщение с иконкой ошибки.

Это работает!

А вот видео: