' zunächst die benötigten API-Deklarationen
Private Declare Function SHGetPathFromIDList Lib _
  "shell32.dll" Alias "SHGetPathFromIDListA" _
  (ByVal pidl As Long, ByVal pszPath As String) As Long
 
Private Declare Function SHGetSpecialFolderLocation Lib _
  "shell32.dll" (ByVal hwndOwner As Long, _
  ByVal nFolder As Long, pidl As ITEMIDLIST) As Long
 
Private Const CSIDL_STARTUP = &H7
 
Private Type SHITEMID
  cb As Long
  abID As Byte
End Type
 
Private Type ITEMIDLIST
  mkid As SHITEMID
End Type
 
Private Function GetSpecialfolder(CSIDL As Long) As String
  Dim r As Long
  Dim IDL As ITEMIDLIST
  Dim Path As String
 
  If SHGetSpecialFolderLocation(100, CSIDL, IDL) = 0 Then
    Path = Space$(512)
    r = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal Path)
    GetSpecialfolder = Left$(Path, InStr(Path, Chr$(0)) - 1)
  End If
End Function
 
' Verzeichnisnamen für AutoStart-Ordner ermitteln
Public Function GetAutoStartFolder() As String
  GetAutoStartFolder = GetSpecialfolder(CSIDL_STARTUP)
End Function
 
 
Public Function CreateLink(Datei As String, _
  LinkName As String)
  Dim cShellLink As ShellLinkA
  Dim cPersistFile As IPersistFile
 
  Set cShellLink = New ShellLinkA
  Set cPersistFile = cShellLink
 
  cShellLink.SetPath Datei
  cPersistFile.Save StrConv(LinkName, vbUnicode), 0
 
  Set cPersistFile = Nothing
  Set cShellLink = Nothing
End Function
 
' Verknüpfung Ihrer Anwendung im
' AutoStart-Ordner speichern
CreateLink App.Path & "\" & App.EXEName, _
  GetAutoStartFolder() & "MeineAnwendung" & ".lnk"