[VB] Ridimensionamento array..è_é

[ladyBlu]

Allora, devi spostare nel ciclo l'istruzione che ridimensiona il tuo array.

Dim grandezza() as  variant

ReDim grandezza(0)
i = 0
While i < UBound(size)
    
    grandezza(UBound(grandezza) - 1) = size(i)
    i = i + 1

    ReDim Preserve grandezza(UBound(grandezza) + 1)

Wend

Così dovrebbe andare.