Module Module1
Sub Main()
Dim arr As String() = New String() {"vb.net", "java", "php", "python", "c#"}
Dim arr_copy(arr.Length - 2) As String
Array.Copy(arr, arr_copy, arr.Length - 2)
For Each element As String In arr_copy
Console.WriteLine(element)
Next
End Sub
End Module
' run:
'
' vb.net
' java
' php