Matrices dinámicas en un tipo definido por el usuario

pbrobert
09 de Noviembre del 2003
Tengo un problema al redimencionar una matriz que tengo definida:

Private Type varVelo
avarVeloParcial() As Variant
End Type
Private avarVelocidad() As varVelo

el problema es :
Redim avarVeloParcial(1 To intConVel)

ya que al ingresarle datos:
For intConVel = 1 To intVelocidad
With avarVelocidad(intConVel)
For intConVelPar = 1 To 3
.avarVeloParcial(intConVelPar) = InputBox()
Next intConVelPar
End With
Next intConVel

me marca un error en .avarVeloParcial(intConVelPar) diciendo que esta fuera del intervalo, mi pregunta es ¿como redimenciono una matriz que se encuentra dentro de un Type?

gracias por su atención

Juan
09 de Noviembre del 2003
Creo que lo que deberías hacer es olvidarte del Type
y redimensionar avarVelocidad con dos dimensiones.
Algo así:

Dim avarVelocidad() as variant
Redim avarVelocidad(1 To intVelocidad, 1 To 3)
For intConVel = 1 To intVelocidad
For intConVelPar = 1 To 3
avarVelocidad(intConVel,intConVelPar) = InputBox()
Next intConVelPar
Next intConVel