Public Class CopyToTest
Public Shared Sub Main()
Dim strSource As String = "changed"
Dim destination As Char() = {"T"c, "h"c, "e"c, " "c}
Console.WriteLine(destination)
strSource.CopyTo(0, destination, 4, strSource.Length)
Console.WriteLine(destination)
strSource = "test case"
strSource.CopyTo(2, destination, 3, 9)
Console.WriteLine(destination)
End Sub
End Class