Puissance 4 en VB.net

Bonjour, je réalise actuellement un puissance 4 en VB.net sur visual studio.
J'ai réalisé un tableau de PictureBox, à chaque fois que l'utilisateur place un pion, ce tableau est converti dans un autre tableau appelé TabConverti(), si la pion du joueur 1 est placé la case sera égale à 1 sinon à 2 pour un pion du joueur 2.

Ensuite la procédure verif() vérifie si (selon le pion placé) il vient de compléter une ligne, une colonne ou une diagonale. J'ai tenté de faire cette procédure verif() mais ça ne marche pas. Même si quatre pions sont alignés, aucun message ne s'affiche :

 Private Sub verif()
        Dim i As Integer
        Dim j As Integer

        For i = 1 To 7
            For j = 1 To 6
                If ((TabConverti(i, j) = "1" Or TabConverti(i, j) = "2")) Then
                    MsgBox("voila")
                    If ((TabConverti(i, j) = TabConverti(i + 1, j)) And (TabConverti(i + 1, j) = TabConverti(i + 2, j)) And (TabConverti(i + 2, j) = TabConverti(i + 3, j))) Then
                         MsgBox("Gagné" & MsgBoxStyle.Critical)
                       
                    End If
                End If
            Next
        Next
        For i = 1 To 7
            For j = 1 To 3
                If (TabConverti(i, j) = "1" Or TabConverti(i, j) = "2") Then
                    MsgBox("Félicitation ! ")
                    If ((TabConverti(i, j) = TabConverti(i, j + 1)) And (TabConverti(i, j + 1) = TabConverti(i, j + 2)) And (TabConverti(i, j + 2) = TabConverti(i, j + 3))) Then
                         MsgBox("Gagné" & MsgBoxStyle.Critical)
                        
                    End If
                End If
            Next
        Next
        For i = 1 To 4
            For j = 1 To 3
                If (TabConverti(i, j) = "1" Or TabConverti(i, j) = "2") Then
                    If ((TabConverti(i, j) = TabConverti(i + 1, j + 1)) And (TabConverti(i + 1, j + 1) = TabConverti(i + 2, j + 2)) And (TabConverti(i + 2, j + 2) = TabConverti(i + 3, j + 3))) Then
                        MsgBox("Gagné" & MsgBoxStyle.Critical)
                       
                    End If
                End If
            Next
        Next
        For i = 1 To 4
            For j = 4 To 6
                If (TabConverti(i, j) = "1" Or TabConverti(i, j) = "2") Then
                    If ((TabConverti(i, j) = TabConverti(i + 1, j - 1)) And (TabConverti(i + 1, j - 1) = TabConverti(i + 2, j - 2)) And (TabConverti(i + 2, j - 2) = TabConverti(i + 3, j - 3))) Then
                        MsgBox("Gagné" & MsgBoxStyle.Critical)
                        
                    End If
                End If
            Next
        Next
    End Sub

Est-ce que quelqu'un saurait comment résoudre ce problème?