TIC-TAC-TOE

'Mise a jour!!! Vous devez remplacer le code du Timer1 par ce qui suit.

Private Sub Timer1_Timer()
    
    'La couleur des boutons changent
    color = (16 * Rnd(1)) Mod 16
    jouer_hg.BackColor = QBColor(color)
    jouer_hc.BackColor = QBColor(color)
    jouer_hd.BackColor = QBColor(color)
    jouer_cg.BackColor = QBColor(color)
    jouer_cc.BackColor = QBColor(color)
    jouer_cd.BackColor = QBColor(color)
    jouer_bg.BackColor = QBColor(color)
    jouer_bc.BackColor = QBColor(color)
    jouer_bd.BackColor = QBColor(color)
    
    'La couleur du form change
    color = Rnd(1) + 1 Mod 16
    
    Form1.BackColor = QBColor(color)
    text_nb.BackColor = QBColor(color)
        
End Sub