'Modul modVK
Option Explicit
 
Declare Function CreateShellLink Lib "vb6stkit.dll" Alias _
      "fCreateShellLink" (ByVal lpstrFolderName As String, _
                          ByVal lpstrLinkName As String, _
                          ByVal lpstrLinkPath As String, _
                          ByVal lpstrLinkArguments As String, _
                          ByVal fPrivate As Long, _
                          ByVal sParent As String) As Long
 
 
Function VerknuepfungAnlegen(Ziel As String, Pfadname _
      As String, Text As String, Privat As Boolean) As Boolean
  Dim sParent As String
 
  sParent = "$(Programs)"
  VerknuepfungAnlegen = _
      CreateShellLink(Ziel, Text, Pfadname, "", Privat, sParent)
End Function
'-------------------
'Form
  Dim sZiel As String
  Dim sPfad As String
  Dim sText As String
  Dim sPrivat As Boolean
  '-----------------------------------
  sZiel = ".\Autostart"
  sText = "My Programm"
  sPfad = App.Path & "\Project1.exe"
  sPrivat = True
 
    If VerknuepfungAnlegen(sZiel, sPfad, sText, _
        sPrivat) = True Then
    MsgBox "Verknüpfung wurde erstellt.", 64, Me.Caption
  Else
    MsgBox "Verknüpfung konnte nicht erstellt werden.", _
        16, "Fehler"
  End If