'code modified from 
    'http://www.vbforums.com/showthread.php?threadid=225479&highlight=shortcut+
    ' create 
    Dim WshShell As New WshShell
    Dim oShellLink As WshShortcut
 
    'Create and save the shortcut
    'Here, it is important the the extension end by .lnk
    Set oShellLink = WshShell.CreateShortcut( "C:\TestLink.lnk" )
    With oShellLink
 
	'Shortcut to which file (can be anything, .exe, .doc, ...)
        .TargetPath = "C:\WINNT\SYSTEM32\calc.exe"
        .WindowStyle = 1
        .IconLocation = "C:\WINNT\SYSTEM32\calc.exe, 0"
        .Arguments = ""
        .Save
    End With
 
    Set WshShell = Nothing
    Set oShellLink = Nothing

Tschaui
Woellmi