gameover

Public Function GameOver() As Boolean
  Dim notablas As Boolean = False
  Dim i, j As Integer
  'hay ganador?
  If Me.ganador()[0] = 0 Then
    For i = 6 To 0 Step -1
      For j = 6 To 0 Step -1
        If Me.casillas[i, j] = 0 Then
          'comprobar tablas
          notablas = True
          Return False
        Endif
      Next
    Next
  Endif
  Return True
End