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
' array element passed by reference
ModifyElementByRef(array1(3))
Console.WriteLine( vbCrLf & "array1(3) after " & _
"ModifyElementByRef: " & array1(3) )
End Sub
Shared Sub ModifyElementByRef(ByRef element As Integer)
Console.WriteLine( vbCrLf & "Value received in " & _
"ModifyElementByRef: " & element )
element *= 2
Console.WriteLine( vbCrLf & "Value calculated in " & _
"ModifyElementByRef: " & element )
End Sub ' ModifyElementByRef
End Class