accionJuega

'Clase ClassJugadorHumano
Public Function juega(tablero As ClassTablero, Optional ProducidoClick As Boolean[], Optional col As Integer[], Optional TextLabelmensajes As TextLabel, Optional area As TextArea) As ClassTablero
...
...
While Not ok
    'espero que se produza un click en el tablero...
    If ProducidoClick[0] = True Then

      area.Text &= gb.CrLf & "Jugador: " & colorJugador[Str$(Super.numero)] & ", columna: " & Str$(col[0])
      ok = tablero.insertaficha(col[0] - 1, Super.numero)
      If OK = False Then
        Print "Movimiento ilegal"
        TextLabelMensajes.text = "Movimiento ilegal"
        ProducidoClick[0] = False
      Else
        ProducidoClick[0] = False
        Break
      Endif
      ProducidoClick[0] = False
    Else
      Wait 0.005
    Endif

  Wend