Private Sub cmdCreateLink_Click()


' Предварительно делаем ссылку на библиотеку C:\WINDOWS\system32\wshom.ocx
' Windows Script Host Object Model

Dim wshell As New WshShell
Dim myShort As WshShortcut
Dim strDesktop As String

strDesktop = wshell.SpecialFolders("Desktop")

Set myShort = wshell.CreateShortcut(strDesktop & "\I love VB.lnk")

myShort.WindowStyle = 3

' Полный путь к рисунку иконки укажи сам
myShort.IconLocation = "C:\Program Files\Microsoft Visual Studio\Common\Graphics\Icons\Computer\msgbox03.ico"
myShort.TargetPath = "%windir%\notepad.exe"
myShort.Hotkey = "ALT+CTRL+F"
myShort.Save

End Sub