Foro de elhacker.net

Dim Tabla() As Variant, i, a
Private Sub Form_Load()
    Tabla = Array("0", "1", "2", "3", "4", "5")
    Call mostrar
    MsgBox "Se redimensiona y se quedan los datos anteriores je"
    ReDim Preserve Tabla(10)
    For i = 6 To UBound(Tabla)
        Tabla(i) = i
    Next i
    Call mostrar
    MsgBox "Se redimensiona Deja en blanco la tabla"
    ReDim Tabla(2)
    For i = 0 To UBound(Tabla)
        Tabla(i) = i
    Next i
    Call mostrar
    
    'Una redimension de la tabla jeje
    'Lo del redim aca sirven igual que la sencilla de arriba vale...¡!
    ReDim Tabla(2, 2)
    For i = 0 To UBound(Tabla)
        For a = 0 To UBound(Tabla)
            Tabla(1, a) = i & "-" & a
        Next a
    Next i
    For i = 0 To UBound(Tabla)
        For a = 0 To UBound(Tabla)
            MsgBox Tabla(i, a)
        Next a
    Next i
End Sub
Sub mostrar()
For i = 0 To UBound(Tabla)
    MsgBox Tabla(i)
Next i
End Sub