Language Basics VB.Net

Imports System
Public Class MainClass
    Shared Sub Main(ByVal args As String())
      Dim array1 As Integer() = New Integer() {1, 2, 3, 4, 5}
      Dim i As Integer
      Console.WriteLine( "The values of the original array are:" & vbCrLf )
      ' display original elements of array1
      For i = 0 To array1.GetUpperBound(0)
         Console.WriteLine(  "  " & array1(i) )
      Next
      ModifyArray(array1) ' array is passed by reference
      Console.WriteLine(  vbCrLf & _
         "The values of the modified array are:" & vbCrLf )
      ' display modified elements of array1
      For i = 0 To array1.GetUpperBound(0)
         Console.WriteLine("  " & array1(i) )
      Next
    End Sub
   ' procedure modifies array it receives (note ByVal)
   Shared Sub ModifyArray(ByVal arrayParameter As Integer())
      Dim j As Integer
      For j = 0 To arrayParameter.GetUpperBound(0)
         arrayParameter(j) *= 2
      Next
   End Sub ' ModifyArray
End Class