Imports System
Imports System.Collections
Public Class MainClass
Shared Sub Main(ByVal args As String())
' Get the number of items.
Dim num_items As Integer = 10000
' One-dimensional array.
Dim array1(0 To num_items - 1) As Integer
For i As Integer = 0 To num_items - 1
array1(i) = i
Next i
' Free the first array's memory.
Erase array1
End Sub
End Class
|