Сравнение двух изображений на идентичность

 Private Sub btnFile1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFile1.Click
        If dlgSelectFile.ShowDialog(Me) = DialogResult.OK Then
            txtFile1.Text = dlgSelectFile.FileName
        End If
    End Sub
 
    Private Sub btnFile2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFile2.Click
        If dlgSelectFile.ShowDialog(Me) = DialogResult.OK Then
            txtFile2.Text = dlgSelectFile.FileName
        End If
    End Sub
 
    Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click
        Me.Cursor = Cursors.WaitCursor
        Application.DoEvents()
        Dim bm1 As Bitmap = Image.FromFile(txtFile1.Text)
        Dim bm2 As Bitmap = Image.FromFile(txtFile2.Text)
        Dim wid As Integer = Math.Min(bm1.Width, bm2.Width)
        Dim hgt As Integer = Math.Min(bm1.Height, bm2.Height)
        Dim bm3 As New Bitmap(wid, hgt)
        Dim are_identical As Boolean = True
        Dim r1, g1, b1, r2, g2, b2, r3, g3, b3 As Integer
        Dim eq_color As Color = Color.White
        Dim ne_color As Color = Color.Red
        For x As Integer = 0 To wid - 1
            For y As Integer = 0 To hgt - 1
                If bm1.GetPixel(x, y).Equals(bm2.GetPixel(x, y)) Then
                    bm3.SetPixel(x, y, eq_color)
                Else
                    bm3.SetPixel(x, y, ne_color)
                    are_identical = False
                End If
            Next y
        Next x
        picResult.Image = bm3
        Me.Cursor = Cursors.Default
        If (bm1.Width <> bm2.Width) OrElse (bm1.Height <> bm2.Height) Then are_identical = False
        If are_identical Then
            MessageBox.Show("100 % совпадение")
        Else
            MessageBox.Show("Нету совпадение")
        End If
        bm1.Dispose()
        bm2.Dispose()
    End Sub