insertar ficha en tablero

Public Function insertaficha(columna As Integer, jugador As Integer) As Boolean

  Dim ok As Boolean = False
  Dim i As Integer

  For i = 6 To 0 Step -1
    If Me.casillas[i, columna] == 0 Then
      Me.casillas[i, columna] = jugador
      ok = True
      Break
    Endif
  Next

  Return ok

End