Imports System
Public Class Test
Shared Sub Print(ByVal arr() As Integer)
For Each n As Integer In arr
Console.WriteLine(n)
Next
End Sub
Public Shared Sub Main()
Dim arr() As Integer = {5, 7, 3, 0, 1}
Print(arr)
End Sub
End Class
' run
'
' 5
' 7
' 3
' 0
' 1
'