copia tablero

Public Function copia() As ClassTablero
  Dim tcopia As New ClassTablero
  Dim a, b As Integer
  For a = 0 To 6
    For b = 0 To 6
      tcopia.casillas[a, b] = hcasillas[a, b]
    Next
  Next
  Return tcopia
End