' Verknüpfung erstellen über das Shell-Objekt (Shell32.dll)
Public Function CreateShortcut(ByVal sLinkFile As String, _
  ByVal sTargetFile As String, _
  Optional ByVal sArguments As String, _
  Optional ByVal sDescription As String, _
  Optional ByVal sWorkingDir As String)
 
  Dim oShell As New Shell32.Shell
  Dim oFolder As Shell32.Folder
  Dim oLink As Shell32.ShellLinkObject
 
  Dim sPath As String
  Dim sFile As String
  Dim F As Integer
 
  ' Ordner und Dateiname extrahieren
  sPath = Left$(sLinkFile, InStrRev(sLinkFile, "\") - 1)
  sFile = Mid$(sLinkFile, InStrRev(sLinkFile, "\") + 1)
 
  ' Link-Datei mit 0 Bytes erstellen, da die
  ' LNK-Datei bereits voranden sein muss!
  F = FreeFile
  Open sLinkFile For Output As #F: Close #F
 
  Set oFolder = oShell.NameSpace(sPath)
  Set oLink = oFolder.Items.Item(sFile).GetLink
 
  ' Eigenschaften der Verknüpfung
  With oLink
    If sArguments <> "" Then .Arguments = sArguments
    If sDescription <> "" Then .Description = sDescription
    If sWorkingDir <> "" Then .WorkingDirectory = sWorkingDir
    .Path = sTargetFile
 
    ' Verknüpfung speichern
    .Save
  End With
 
  ' Objekte zerstören
  Set oLink = Nothing
  Set oFolder = Nothing
  Set oShell = Nothing
End Function
 
Private Sub Command1_Click()
CreateShortcut "C:\neu\test.lnk", App.Path & "\" & App.EXEName & ".exe"
End Sub