document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Public Function insertaficha(columna As Integer, jugador As Integer) As Boolean
  2.  
  3.   Dim ok As Boolean = False
  4.   Dim i As Integer
  5.  
  6.   For i = 6 To 0 Step -1
  7.     If Me.casillas[i, columna] == 0 Then
  8.       Me.casillas[i, columna] = jugador
  9.       ok = True
  10.       Break
  11.     Endif
  12.   Next
  13.  
  14.   Return ok
  15.  
  16. End
');