Private Declare Function OSfCreateShellLink Lib _
  "STKIT432.DLL" Alias "fCreateShellLink" _
  (ByVal lpstrFolderName As String, _
  ByVal lpstrLinkName As String, _
  ByVal lpstrLinkPath As String, _
  ByVal lpstrLinkArguments As String) As Long
 
Private Declare Function OSfRemoveShellLink Lib _
  "STKIT432.DLL" Alias "fRemoveShellLink" _
  (ByVal lpstrFolderName As String, _
  ByVal lpstrLinkName As String) As Long
 
Private Declare Function OSfCreateShellGroup Lib _
  "STKIT432.DLL" Alias "fCreateShellFolder" _
  (ByVal lpstrDirName As String) As Long
 
' Verknüpfung in Ordner "AutoStart" erstellen
Public Sub SaveLinkToAutoStart(ByVal AppFile As String, _
  ByVal AppTitel As String, ByVal AppParam As String)
  Dim lResult As Long
 
  On Local Error Resume Next
  OSfCreateShellLink "Autostart", AppTitel, AppFile, _
    AppParam
  If Err <> 0 Then
    ' Autostart-Ordner existiert nicht
    ' also zunächst erstellen...
    OSfCreateShellGroup "Autostart"
 
    ' ... und erneut versuchen
    OSfCreateShellLink "Autostart", AppTitel, AppFile, _
      AppParam
  End If
End Sub
 
Dim AppFile As String
Dim AppTitel As String
Dim AppParam As String
 
AppFile = App.Path & "\" & App.EXEName & ".exe"
AppTitel = "Meine Anwendung"
 
' optional Parameterübergabe für den Aufruf
AppParam = ""
 
SaveLinkToAutoStart AppFile, AppTitel, AppParam]