Asi podes verlo en windows10 solo lo he probado en la versión 1803

private void tema()
{
    var registro = My.Computer.Registry.GetValue(@"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Themes\Personalize", "AppsUseLightTheme", null);
    if (registro == 1)
        Interaction.MsgBox("Tema claro");
    else
        Interaction.MsgBox("Tema oscuro");
    return null;
}
 

Yo si creo que te entendi   te hice una función espero aun te sirva.

public void Operar(string valores)
{
    string Operador = null;
    string tmp = null;
    double Valor_1 = default(Double);
    double Valor_2 = default(Double);
    string Resultado = null;
    bool porcentaje;
 
    for (var i = 0; i <= valores.Length - 1; i++)
    {
        tmp = tmp + valores.Chars[i];
 
        if (valores.Chars[i] == "+" | valores.Chars[i] == "-" | valores.Chars[i] == "/" | valores.Chars[i] == "*" | valores.Chars[i] == "%")
        {
            if (Operador == null)
                Operador = valores.Chars[i];
            else if (Operador != null & Operador != "%" & valores.Chars[i] == "%")
                porcentaje = true;
            else
            {
                Interaction.MsgBox("Solamente se puede hacer una operación a la vez", MsgBoxStyle.Critical, "Error");
                return null;
            }
 
            if (Valor_1 == default(Double))
            {
                Valor_1 = Conversion.Val(tmp);
                tmp = null;
            }
        }
    }
 
    if (Valor_1 != default(Double))
    {
        Valor_2 = Conversion.Val(tmp);
        tmp = null;
    }
 
    if (Valor_1 != default(Double) & Valor_2 != default(Double) & Operador != null)
    {
        if (porcentaje == true)
        {
            tmp = Conversion.Val(Valor_1) / 100 * Conversion.Val(Valor_2);
            Valor_2 = tmp;
        }
 
        switch (Operador)
        {
            case "+":
                {
                    Resultado = Conversion.Val(Valor_1) + Conversion.Val(Valor_2);
                    break;
                }
 
            case "-":
                {
                    Resultado = Conversion.Val(Valor_1) - Conversion.Val(Valor_2);
                    break;
                }
 
            case "/":
                {
                    Resultado = Conversion.Val(Valor_1) / Conversion.Val(Valor_2);
                    break;
                }
 
            case "*":
                {
                    Resultado = Conversion.Val(Valor_1) * Conversion.Val(Valor_2);
                    break;
                }
 
            case "%":
                {
                    Resultado = Conversion.Val(Valor_1) / 100 * Conversion.Val(Valor_2);
                    break;
                }
        }
        return Resultado;
    }
    else
    {
        Interaction.MsgBox("Algo está mal en la operación", MsgBoxStyle.Critical, "Error");
        return null;
    }
}
 

Solucionado:

        If var2.Length < var1.Length Then
            For index = var2.Length To var1.Length
                ReDim Preserve var2(UBound(var2) + 1)
                var2(UBound(var2)) = 0
            Next
        End If
        If var3.Length < var1.Length Then
            For index = var3.Length To var1.Length
                ReDim Preserve var3(UBound(var3) + 1)
                var3(UBound(var3)) = 0
            Next
        End If
        If var4.Length < var1.Length Then
            For index = var4.Length To var1.Length
                ReDim Preserve var4(UBound(var4) + 1)
                var4(UBound(var4)) = 0
            Next
        End If
        If var5.Length < var1.Length Then
            For index = var5.Length To var1.Length
                ReDim Preserve var5(UBound(var5) + 1)
                var5(UBound(var5)) = 0
            Next
        End If
        If var6.Length < var1.Length Then
            For index = var6.Length To var1.Length
                ReDim Preserve var6(UBound(var6) + 1)
                var6(UBound(var6)) = 0
            Next
        End If
        If var7.Length < var1.Length Then
            For index = var7.Length To var1.Length
                ReDim Preserve var7(UBound(var7) + 1)
                var7(UBound(var7)) = 0
            Next
        End If
        If var8.Length < var1.Length Then
            For index = var8.Length To var1.Length
                ReDim Preserve var8(UBound(var8) + 1)
                var8(UBound(var8)) = 0
            Next
        End If
        If var9.Length < var1.Length Then
            For index = var9.Length To var1.Length
                ReDim Preserve var9(UBound(var9) + 1)
                var9(UBound(var9)) = 0
            Next
        End If
        If var10.Length < var1.Length Then
            For index = var10.Length To var1.Length
                ReDim Preserve var10(UBound(var10) + 1)
                var10(UBound(var10)) = 0
            Next
        End If
        If var11.Length < var1.Length Then
            For index = var11.Length To var1.Length
                ReDim Preserve var11(UBound(var11) + 1)
                var11(UBound(var11)) = 0
            Next
        End If
        If var12.Length < var1.Length Then
            For index = var12.Length To var1.Length
                ReDim Preserve var12(UBound(var12) + 1)
                var12(UBound(var12)) = 0
            Next
        End If

Este es el resultado:

<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 20001102//EN"    "http://www.w3.org/TR/2000/CR-SVG-20001102/DTD/svg-20001102.dtd" [
  <!ENTITY ns_graphs "http://ns.adobe.com/Graphs/1.0/">
  <!ENTITY ns_vars "http://ns.adobe.com/Variables/1.0/">
  <!ENTITY ns_imrep "http://ns.adobe.com/ImageReplacement/1.0/">
  <!ENTITY ns_custom "http://ns.adobe.com/GenericCustomNamespace/1.0/">
  <!ENTITY ns_flows "http://ns.adobe.com/Flows/1.0/">
  <!ENTITY ns_extend "http://ns.adobe.com/Extensibility/1.0/">
]>
<svg>
<variableSets  xmlns="&ns_vars;">
  <variableSet  varSetName="binding1" locked="none">
    <variables><variable varName="num" trait="textcontent" category="&ns_flows;"></variable><variable varName="let" trait="textcontent" category="&ns_flows;"></variable><variable varName="" trait="textcontent" category="&ns_flows;"></variable><variable varName="" trait="textcontent" category="&ns_flows;"></variable><variable varName="" trait="textcontent" category="&ns_flows;"></variable><variable varName="" trait="textcontent" category="&ns_flows;"></variable><variable varName="" trait="textcontent" category="&ns_flows;"></variable><variable varName="" trait="textcontent" category="&ns_flows;"></variable><variable varName="" trait="textcontent" category="&ns_flows;"></variable><variable varName="" trait="textcontent" category="&ns_flows;"></variable><variable varName="" trait="textcontent" category="&ns_flows;"></variable><variable varName="" trait="textcontent" category="&ns_flows;"></variable></variables>
    <v:sampleDataSets  xmlns:v="http://ns.adobe.com/Variables/1.0/" xmlns="http://ns.adobe.com/GenericCustomNamespace/1.0/"><v:sampleDataSet dataSetName="datos 1">
<num>
<p>1</p>
</num>
 
<v:sampleDataSet dataSetName="datos 2">
<num>
<p>2</p>
</num>
 
<v:sampleDataSet dataSetName="datos 3">
<num>
<p>3</p>
</num>
 
<v:sampleDataSet dataSetName="datos 4">
<num>
<p>a</p>
</num>
 
<v:sampleDataSet dataSetName="datos 5">
<num>
<p>b</p>
</num>
 
<v:sampleDataSet dataSetName="datos 6">
<num>
<p>c</p>
</num>
 
    </v:sampleDataSets>
  </variableSet>
</variableSets>
</svg>

Esto es lo que yo necesito:

<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 20001102//EN"    "http://www.w3.org/TR/2000/CR-SVG-20001102/DTD/svg-20001102.dtd" [
	<!ENTITY ns_graphs "http://ns.adobe.com/Graphs/1.0/">
	<!ENTITY ns_vars "http://ns.adobe.com/Variables/1.0/">
	<!ENTITY ns_imrep "http://ns.adobe.com/ImageReplacement/1.0/">
	<!ENTITY ns_custom "http://ns.adobe.com/GenericCustomNamespace/1.0/">
	<!ENTITY ns_flows "http://ns.adobe.com/Flows/1.0/">
<!ENTITY ns_extend "http://ns.adobe.com/Extensibility/1.0/">
]>
<svg>
<variableSets  xmlns="&ns_vars;">
	<variableSet  locked="none" varSetName="binding1">
		<variables>
			<variable  category="&ns_flows;" varName="Variable1" trait="textcontent"></variable>
			<variable  category="&ns_flows;" varName="Variable2" trait="textcontent"></variable>
		</variables>
		<v:sampleDataSets  xmlns:v="&ns_vars;" xmlns="&ns_custom;">
			<v:sampleDataSet  dataSetName="Conj. de datos 1">
				<Variable1>
					<p>1</p>
				</Variable1>
				<Variable2>
					<p>a</p>
				</Variable2>
			</v:sampleDataSet>
			<v:sampleDataSet  dataSetName="Conj. de datos 2">
				<Variable1>
					<p>2</p>
				</Variable1>
				<Variable2>
					<p>b</p>
				</Variable2>
			</v:sampleDataSet>
			<v:sampleDataSet  dataSetName="Conj. de datos 3">
				<Variable1>
					<p>3</p>
				</Variable1>
				<Variable2>
					<p>c</p>
				</Variable2>
			</v:sampleDataSet>
		</v:sampleDataSets>
	</variableSet>
</variableSets>
</svg>

El código ya no da problemas con los array, con respecto a los textbox no importa que fueran 20 o 50 entre más mejor. Y te reitero que no soy programador del código que pusiste que resuelve el problema de los array pero que no es valido en Adobe Illustrator no entiendo nada por eso no puedo arreglarlo.

Mi único problema son los array porque el xml que genero con mis 49 variables es valido.

Yo entiendo y se que mi código es pésimo, pero es lo que entiendo.

Muchas gracias por tu ayuda.

Dejo el link del proyecto el que dice "copia" es la versión que funcionaba pero solo con una variable.

El proyecto genera la base de datos, para datos variables de Illustrator CC.

No puedo inicializar el array porque no se cuantos datos va a contener y necesito que todos lleven la misma cantidad de datos respetando lo que ya se ha puesto en los cajones de texto.

mas adelante hago lo siguiente:


no soy programador así que lo que hago es bastante tosco.

Hola.
tengo un problema con arrays en vb.net, tengo 12 array que contendrán distintos datos que luego escribo en un archivo xml, el problema es que no todos los arrays contendrán datos o no todos tendrán el mismo número de datos y eso me genera problemas.

lo que necesito o quisiera hacer es llenar de ceros los que tengan menos datos e igual con los que no tengan ningún dato.

lo que tengo hasta el memento es lo siguiente:

Do While tmp1 <= var1.Length
            If var2(tmp1) = Nothing Then
                var2(tmp1) = 0
            End If
            If var3(tmp1) = Nothing Then
                var3(tmp1) = 0
            End If
            If var4(tmp1) = Nothing Then
                var4(tmp1) = 0
            End If
            If var5(tmp1) = Nothing Then
                var5(tmp1) = 0
            End If
            If var6(tmp1) = Nothing Then
                var6(tmp1) = 0
            End If
            If var7(tmp1) = Nothing Then
                var7(tmp1) = 0
            End If
            If var8(tmp1) = Nothing Then
                var8(tmp1) = 0
            End If
            If var9(tmp1) = Nothing Then
                var9(tmp1) = 0
            End If
            If var10(tmp1) = Nothing Then
                var10(tmp1) = 0
            End If
            If var11(tmp1) = Nothing Then
                var11(tmp1) = 0
            End If
            If var12(tmp1) = Nothing Then
                var12(tmp1) = 0
            End If
            tmp1 += 1
        Loop