Function CreateLink(Titel$,Programm$,DestFolder$,TempFile$="Temp.vbs")
   Local file=WriteFile(TempFile$)
   WriteLine file,"Const strProgramtitel="+Chr(34)+Titel$+Chr(34)
   WriteLine file,"Const strProgram ="+Chr(34)+Programm$+Chr(34)
   WriteLine file,"Dim objShortcut"
   WriteLine file,"Dim objShell"
   WriteLine file,"Set objShell= WScript.CreateObject("+Chr(34)+"Wscript.Shell"+Chr(34)+")"
   WriteLine file,"strLPfad="+Chr(34)+DestFolder$+Chr(34)
   WriteLine file,"Set objShortcut=objShell.CreateShortcut(strLPfad & "+Chr(34)+"\"+Chr(34)+" & strProgramtitel & "+Chr(34)+".lnk"+Chr(34)+")"
   WriteLine file,"objShortcut.TargetPath= strProgram"
   WriteLine file,"objShortcut.Description= "+Chr(34)+"strProgramtitel"+Chr(34)
   WriteLine file,"objShortcut.Save"
   CloseFile file
   While FileSize(TempFile$)<(325+Len(Titel$)+Len(Programm$)+Len(DestFolder))
   Wend
   ExecFile TempFile$
   While Not FileType(DestFolder$+"\"+Titel$+".lnk")=1
   Wend
   While FileType(TempFile$)=1
   DeleteFile TempFile$
   Wend
End Function