1) Open a new exe standard proyect
2) Add one CommandButton, and two Textboxes, called cmdMakeLNKFile, txtTarget and txtLnkName respectively
3) Add the reference to the Windows Script Host Object Model (file: wshom.ocx, located in your system directory)
4) Copy this code to the Declarations sections:
Dim Shell As WshShell
Dim Shortcut As WshShortcut
5) Add this code to your form
Private Sub cmdMakeLNKFile_Click()
'initialize the object WshShell
Set objShell = New WshShell
'initialize the object WshShortcut
'the complete name of the .lnk file, include full path plus the .LNK file extension
Set objShortcut = objShell.CreateShortcut (txtLnkName.Text)
'the file to be called by the .lnk file, ej. "c:\windows\calc.exe"
objShortcut.TargetPath = txtTarget.Text
'(optional) := any command line supported by the file indicated in txtTarget.Text
'objShortcut.Arguments = xxxx
'(optional) : = a valid icon file : = To use the same icon of the target file, do not use the next line.
'objShortcut.IconLocation = xxxx
'Save the .lnk
objShortcut.Save
End Sub