неполадки в функции IF в игре парные картинки

[Daria123]

код VB.NET но частично, помогите пожалуйста исправить ошибку!
'проверяем две картинки из двух групп на равенство текста(компьютер не может определить одинаковые картинки зато может определить текст)

  If proverka >= 2 Then ' если переменная больше или равна двум то начинаем проверку
            For i = 1 To 4
                For j = 1 To 4
                    If okno(1, j).Text = okno(2, j).Text Then 
                        okno(1, j).Enabled = False 
                        okno(2, j).Enabled = False
                    Else
                        okno(i, j).Text = i & "," & j 
                        okno(i, j).BackgroundImage = Image.FromFile("pic.jpg")
                    End If
                    If okno(1, j).Text = okno(4, j).Text Then
                        okno(1, j).Text = False
                        okno(4, j).Text = False
                    Else
                        okno(i, j).Text = i & "," & j  
                        okno(i, j).BackgroundImage = Image.FromFile("pic.jpg")
                    End If
                    If okno(1, j).Text = okno(3, j).Text Then
                        okno(1, j).Enabled = False
                        okno(3, j).Enabled = False
                    Else
                        okno(i, j).Text = i & "," & j  
                        okno(i, j).BackgroundImage = Image.FromFile("pic.jpg")
                    End If
                    If okno(2, j).Text = okno(1, j).Text Then
                        okno(2, j).Text = False
                        okno(1, j).Text = False
                    Else
                        okno(i, j).Text = i & "," & j  
                        okno(i, j).BackgroundImage = Image.FromFile("pic.jpg")
                    End If
                    If okno(2, j).Text = okno(3, j).Text Then
                        okno(2, j).Text = False
                        okno(3, j).Text = False
                    Else
                        okno(i, j).Text = i & "," & j 
                        okno(i, j).BackgroundImage = Image.FromFile("pic.jpg")
                    End If
                    If okno(2, j).Text = okno(4, j).Text Then
                        okno(2, j).Text = False
                        okno(4, j).Text = False
                    Else
                        okno(i, j).Text = i & "," & j  
                        okno(i, j).BackgroundImage = Image.FromFile("pic.jpg")
                    End If
                    If okno(3, j).Text = okno(1, j).Text Then
                        okno(3, j).Text = False
                        okno(1, j).Text = False
                    Else
                        okno(i, j).Text = i & "," & j 
                        okno(i, j).BackgroundImage = Image.FromFile("pic.jpg")
                    End If
                    If okno(3, j).Text = okno(2, j).Text Then
                        okno(3, j).Text = False
                        okno(2, j).Text = False
                    Else
                        okno(i, j).Text = i & "," & j 
                        okno(i, j).BackgroundImage = Image.FromFile("pic.jpg")
                    End If
                    If okno(3, j).Text = okno(4, j).Text Then
                        okno(3, j).Text = False
                        okno(4, j).Text = False
                    Else
                        okno(i, j).Text = i & "," & j 
                        okno(i, j).BackgroundImage = Image.FromFile("pic.jpg")
                    End If
                    If okno(4, j).Text = okno(1, j).Text Then
                        okno(4, j).Text = False
                        okno(1, j).Text = False
                    Else
                        okno(i, j).Text = i & "," & j  
                        okno(i, j).BackgroundImage = Image.FromFile("pic.jpg")
                    End If
                    If okno(4, j).Text = okno(2, j).Text Then
                        okno(4, j).Text = False
                        okno(2, j).Text = False
                    Else
                        okno(i, j).Text = i & "," & j 
                        okno(i, j).BackgroundImage = Image.FromFile("pic.jpg")
                    End If
                    If okno(4, j).Text = okno(3, j).Text Then
                        okno(4, j).Text = False
                        okno(3, j).Text = False
                    Else
                        okno(i, j).Text = i & "," & j  
                        okno(i, j).BackgroundImage = Image.FromFile("pic.jpg")
                    End If
                Next
            Next
            proverka = 0
        End If
    End Sub