Imports System
Public Class Program
Public Shared Sub function_(ParamArray list As Integer())
For i As Integer = 0 To list.Length - 1
Console.Write(list(i) & " ")
Next
Console.WriteLine()
End Sub
Public Shared Sub Main()
Dim arr As Integer() = {1, 2, 3, 4, 5, 6}
function_(arr)
End Sub
End Class
' run:
'
' 1 2 3 4 5 6
'