TDU y arrays

[pablOOO5]

Si. Pero nos están enseñando con esa versión. Incluso tuve problemas para instalarlo ya que la aplicación es de 32 bits.

Mira, no si esta bien lógicamente planteado:

Código vb:

Public Sub GuardarCmd_Click()
 
'Variables contadores
Dim i As Integer, min As Integer, max As Integer
'Arrays dinamico
Dim libros() As TDUBiblioteca
min = 0
max = 100
 
'Variable de acceso TDU
Dim biblioteca() As TDUBiblioteca
 
'Control de menos de 100 libros
If min <= 100 Then
    biblioteca(min).titulo = TituloTxt.Text
    biblioteca(min).autores = AutoresTxt.Text
    biblioteca(min).editorial = EditorialTxt.Text
    biblioteca(min).anio = AnioTxt.Text
    biblioteca(min).paginas = PaginasTxt.Text
    biblioteca(min).comentarios = ComentariosTxt.Text
Else
    MsgBox ("Cantidad maxima de libros alcanzados")
    End
End If
'Fin control
 
'Redimensiono la cantida de libros en el arrays
ReDim libros(min) As TDUBiblioteca
 
'Trato de guardar los libros en el arrays
For i = 0 To 5
    libros(min) = biblioteca(min)
Next i
 
'Sumo la cantidad de libros cargados hasta el momento
min = min + 1
End Sub
 

Me arroja un error en los sub indices, que esta fuera de intervalo. Seguramente esta mal asociado.

Sera que tendré que declara otra variable local para seguir el contador de libros y otro para los sub indices ?