Private Sub Button5_Click(sender As Object, e As EventArgs) Handles _
  Button5.Click
		'//;;
		Dim pathx As String = Nothing
		Dim pathxx As String = Nothing
		'//;;
		For Each fi As String In My.Computer.FileSystem.GetFiles( _
  "C:\Users\Public\Desktop", FileIO.SearchOption.SearchTopLevelOnly, "*.lnk")
			pathx = fi.Substring(fi.LastIndexOf("\") + 1)
			If pathx.StartsWith("AutoCAD " & "2021") = True Then
				pathxx = pathx
			End If
		Next
		'//;;
		MsgBox(pathxx)
		'//;;
		Dim NewArg01 As String = " /product ACAD /language " & """de-DE""" & " /p " & _
  "profilname"
		Dim NewArg02 As String = " /product ACAD /language " & """de-DE""" & "/nologo"
		Dim NewArg03 As String = " /product ACAD /language " & """de-DE""" & _
  "/nologo" & " /p " & "borowski2cad"
		'//;;
		Dim shell As New IWshShell_Class()
		Dim path As String = IO.Path.Combine(Environment.GetFolderPath( _
  Environment.SpecialFolder.CommonDesktopDirectory), pathxx)
		'//;;
		MsgBox(path)
		'//;;
		Dim sC As IWshShortcut = DirectCast(shell.CreateShortcut(path), IWshShortcut)
		'//;;
		Try
			MsgBox(sC.Arguments)
			'//;;
			sC.Arguments = NewArg01
			sC.Save()
			'//;;
			MsgBox(sC.Arguments)
			'//;;
		Catch ex As System.Exception
			MsgBox("ACHTUNG!" & vbCrLf & ex.Message, vbCritical)
			Return
		End Try
		'//;;
	End Sub

	Private Sub Button4_Click(sender As Object, e As EventArgs) Handles _
  Button4.Click
		'//;;
		Dim NewArg01 As String = " /product ACAD /language " & """de-DE""" & " /p " & _
  "profilname"
		Dim NewArg02 As String = " /product ACAD /language " & """de-DE""" & "/nologo"
		'//;;
		Dim shell As New IWshShell_Class()
		Dim path As String = IO.Path.Combine(Environment.GetFolderPath( _
  Environment.SpecialFolder.Desktop), "Test AutoCAD 2021 - Deutsch (" & _
  "German).lnk")
		'//;;
		MsgBox(path)
		'//;;
		Dim sC As IWshShortcut = DirectCast(shell.CreateShortcut(path), IWshShortcut)
		'//;;
		Try
			MsgBox(sC.Arguments)
			'//;;
			sC.Arguments = NewArg01
			sC.Save()
			'//;;
			MsgBox(sC.Arguments)
			'//;;
		Catch ex As System.Exception
			MsgBox("ACHTUNG!" & vbCrLf & ex.Message, vbCritical)
			Return
		End Try
		'//;;;
	End Sub

VG

Dirk