Imports System
Public Class Test
Shared Sub Print(ByVal arr() As String)
For Each s As String In arr
Console.WriteLine(s)
Next
End Sub
Public Shared Sub Main()
Print(New String() {"vb.net", "c#", "c", "c++"})
End Sub
End Class
' run
'
' vb.net
' c#
' c
' c++
'