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"
    \'
    \' Arguments - это твой ключ
    myShort.Arguments = "c:\\autoexec.bat"
    \'
    \'
    myShort.Save
End Sub