Imports System
Public Class Example
Public Shared Sub Main(ByVal args As String())
Dim src As Char() = New Char() {"a"c, "b"c, "c"c, "d"c, "e"c, "f"c, "g"c}
Dim dest As Char() = New Char(src.Length - 1) {}
Array.Copy(src, 0, dest, 0, src.Length)
For Each ch As Char In dest
Console.WriteLine(ch)
Next
End Sub
End Class
' run:
'
' a
' b
' c
' d
' e
' f
' g
'