muestra tablero

Public Sub muestra() As Integer[]
  Dim a, b As Integer
  Dim texto As New Integer[7, 7]
  For a = 0 To 6
    For b = 0 To 6
      '     Print hcasillas[a, b];
      texto[a, b] = hcasillas[a, b]
    Next
    '  Print gb.CrLf
  Next
  ' Print "-------"
  ' Print "1234567"
  Return hcasillas 'texto
End