Function VerifierGagne(tour As Char, sender As Object)
    Dim Pos(3, 3) As Char 'Met dans un tableau 2d la valeur de chaque case
    Pos(0, 0) = lbl00.Text
    Pos(0, 1) = lbl01.Text
    Pos(0, 2) = lbl02.Text
    Pos(1, 0) = lbl10.Text
    Pos(1, 1) = lbl11.Text
    Pos(1, 2) = lbl12.Text
    Pos(2, 0) = lbl20.Text
    Pos(2, 1) = lbl21.Text
    Pos(2, 2) = lbl22.Text

    Select Case True 'Tout les posibilité de victoire, pas la méthode la plus optimisée...
      Case (Pos(0, 0) = mTour) And (Pos(0, 1) = mTour) And (Pos(0, 2) = mTour) 'Horizontalement
        Return True
      Case (Pos(2, 0) = mTour) And (Pos(2, 1) = mTour) And (Pos(2, 2) = mTour)
        Return True
      Case (Pos(1, 0) = mTour) And (Pos(1, 1) = mTour) And (Pos(1, 2) = mTour)
        Return True

      Case (Pos(0, 0) = mTour) And (Pos(1, 0) = mTour) And (Pos(2, 0) = mTour) 'Verticalement
        Return True
      Case (Pos(0, 1) = mTour) And (Pos(1, 1) = mTour) And (Pos(2, 1) = mTour)
        Return True
      Case (Pos(0, 2) = mTour) And (Pos(1, 2) = mTour) And (Pos(2, 2) = mTour)
        Return True

      Case (Pos(0, 0) = mTour) And (Pos(1, 1) = mTour) And (Pos(2, 2) = mTour) 'Diagonales
        Return True
      Case (Pos(2, 0) = mTour) And (Pos(1, 1) = mTour) And (Pos(0, 2) = mTour)
        Return True
      Case Else
        Return False
    End Select

  End Function