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