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