Ejemplo de uso de copia de objetos

Public Sub main()

  Dim perro As New ClassPerro
  Dim copiaperro As New ClassPerro

  'Datos de la clase
  perro.nombre = "nazarena"
  perro.n.NUMERO = 3
  perro.varian = ["hola", "adios"]
  perro.arrayInteger = [1, 2, 4, 56]
  'Escribo el contenido de la clase
  Print "Original:......................."
  perro.escribe()

  'Hacemos la Copia

  copiaperro = CopyObject(perro)

  Print "La copia incial es:"
  copiaperro.escribe()
  'Voy a modificar la copia, pero el original se va a mantener sin cambios...
  Print "copia modificada: -------------"
  copiaperro.nombre = "Canela"
  copiaperro.N.NUMERO = 4
  copiaperro.varian = ["Hello", "adios Bye Bye", "perrito", 3.14]
  copiaperro.arrayInteger = [10, 22, 3, 4, 34]
  copiaperro.escribe()
  Print "El original es:"
  perro.escribe()
  Print "Modifico Original, veo si ha cambiado en algo la copiaModificada...."
  Print "El original Modificado es:"
  perro.nombre = "nazarena Raza desconodia"
  perro.n.NUMERO = 8003
  perro.varian = ["Alfa", "Beta"]
  perro.arrayInteger = [1, 2, 43, 56]
  perro.escribe()
  Print "Copia Modificada anteriormente:"
  copiaperro.escribe()

  Print "--------------------------------------------------"
  Print "Muestro las referencias de los objetos:"
  Print "objetos:"; perro, copiaperro
  Print "clases:"; perro.N, copiaperro.n
  Print "Arrays Integer:"; perro.arrayInteger, copiaperro.arrayInteger
  Print "Arrays Variant:"; perro.varian, copiaperro.varian

End