Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -668,10 +668,18 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
         Dim errorCorrect As String = CorrectionLevel
 
         qrCodeEncoder.QRCodeErrorCorrect = CorrectionLevel
-
         Dim image As Image
         Dim data As String = QRtext
-        image = qrCodeEncoder.Encode(data)
+
+
+        qrCodeEncoder.QRCodeVersion = 0
+
+        '   qrCodeEncoder.QRCodeEncodeMode = QRCodeEncoder.ENCODE_MODE.ALPHA_NUMERIC
+        qrCodeEncoder.QRCodeErrorCorrect = QRCodeEncoder.ERROR_CORRECTION.M
+
+
+        image = qrCodeEncoder.Encode(data, System.Text.Encoding.UTF8)
+
         Return image
     End Function