new clase tablero

Public Sub _new(Optional t As ClassTablero)
  Dim a, b As Integer
  If t = Null Then
    For a = 0 To 6
      For b = 0 To 6
        hcasillas[a, b] = 0
      Next
    Next
  Else
    For a = 0 To 6
      For b = 0 To 6
        hcasillas[a, b] = t.casillas[a, b]
      Next
    Next
 Endif
End