Dim strLinkOrt = Environment.GetFolderPath( _
      Environment.SpecialFolder.DesktopDirectory) + strTZ + strProgrammName
            'Ort an dem der Link gespeichert wird
            Dim strDateiOrt = strZiel + strTZ + strZuVerknüpfendeDatei
            'Ort der zu verlinkenden Datei
 
            VerknüpfungInLinuxAnlegen(strLinkOrt, strDateiOrt)    'Verknüpfung 
            ' im Desktop anlegen
 
            strLinkOrt = Environment.GetFolderPath( _
              Environment.SpecialFolder.Programs) + strTZ + strProgrammName
 
            VerknüpfungInLinuxAnlegen(strLinkOrt, strDateiOrt)    'Verknüpfung 
            ' im Startmenü anlegen

   Public Function VerknüpfungInLinuxAnlegen(ByVal strDateiOrt, ByVal _
     strLinkOrt)
        'ln datei linkname -s
        System.Diagnostics.Process.Start("ln", strDateiOrt + " " + strLinkOrt + _
          " -s")
    End Function