Redimensionando um array usando a instrução ReDim

'Este exemplo mostra como alterar o tamanho de um
'array em tempo de execução. para isso usaremos a
'instrução ReDim. Lembre-se de que esta instrução nos
'permite alterar o tamanho do array, mas não seu tipo ou
'seu número de dimensões

Module Module1
  Sub Main()
    ' cria um array de 5 inteiros
    Dim valores() As Integer = {1, 2, 3, 4, 5}

    ' exibe os valores do array
    For Each valor As Integer In valores
      Console.WriteLine(valor)
    Next

    'aumenta o tamanho do array para 11
    'aqui estamos usando a palavra-chave Preserve para
    'preservar o conteúdo já presente no array. A ausência
    'de Preserve faz com que o array seja redimensionado
    'e inicializado com seus valores padrões
    ReDim Preserve valores(11)
    Console.WriteLine()

    ' exibe os valores do array
    For Each valor As Integer In valores
      Console.WriteLine(valor)
    Next

    Console.ReadKey()
  End Sub
End Module