Module Module1
Sub Main()
Dim arr() As Integer = New Integer() {1, 2, 3, 4}
For i As Integer = 0 To arr.Length - 1
Console.Write("{0, 3}", arr(i))
Next
ReDim arr(5)
Console.WriteLine()
For i As Integer = 0 To arr.Length - 1
Console.Write("{0, 3}", arr(i))
Next
End Sub
End Module
'run:
'
' 1 2 3 4
' 0 0 0 0 0 0