Dim sZiel As String
  Dim sPfad As String
  Dim sText As String
  Dim fPrivat As Boolean 'nur VB 6
 
 
    sZiel = ".\Autostart"
 
  sText = "blablar"
  sPfad = App.Path & "\blabla.exe"
  fPrivat = True   'nur VB 6
 
 
  If VerknuepfungAnlegenVB6(sZiel, sPfad, sText, _
        fPrivat) = True Then
    MsgBox "Verknüpfung wurde erstellt.", 64, Me.Caption
  Else
    MsgBox "Verknüpfung konnte nicht erstellt werden.", _
        16, "Fehler"
  End If

Kill ("C:\Dokumente und Einstellungen\All" & _
  "Users\Startmenü\Programme\Autostart\blalala.lnk")