Cita:
Iniciado por Pegano 
Wenas a todos, nesecito crear 30 arrays de bytes, para empezar declararlo asi
Dim Arreglo1(25) as byte, Arreglo2(25) as byte, Arreglo3(25) as byte, etc...
mi pregunta es si existe alguna manera de crearlos dinamicamente y no tener que estar escribiendo ya que lo utilizare en varias ocaciones, probe con for next pero no tuve resultados, alguien que me de una ayuda gracias de antemano
Hola Pegano,
¿Es posible usar un arreglo bidimensional?
Dim Arreglo(25,25) As Byte
Si utilizás el control "MSScriptControl" allí podrás crear arreglos y funciones "dinamicamente" (en tiempo de ejecución).
Ahora... si es solo para "ahorrar escritura" lo que te aconsejo es que lo trabajes como cadena (con bucle for, tal cual habías dicho) y luego lo copias y pegas en el código...
Ej:
Código vb:
Ver originalDim Cad As String
Dim i As Integer
For i = 1 To 25
Cad = Cad & "Dim Arreglo" & i & "(25) As Byte" & vbNewLine
Next
Clipboard.Clear
Clipboard.SetText (Cad)
(Esto te copiaría directamente todo en el portapapeles, por lo que solo basta pegarlo en el proyecto.
Saludos