Comparare 2 immagini

Sub ConfrontaImmagini(ByVal IMG1 As Image, ByVal IMG2 As Image)

        Dim BMP1, BMP2 As Bitmap

        BMP1 = New Bitmap(IMG1)
        BMP2 = New Bitmap(IMG2)

        If BMP1.Width <> BMP2.Width Then
            MsgBox("Le immagini sono diverse")
            Exit Sub
        End If

        If BMP1.Height <> BMP2.Height Then
            MsgBox("Le immagini sono diverse")
            Exit Sub
        End If

        Dim clr1, clr2 As Color

        For py As Integer = 0 To BMP1.Height - 1
            For px As Integer = 0 To BMP1.Width - 1

                clr1 = BMP1.GetPixel(px, py)
                clr2 = BMP1.GetPixel(px, py)

                If clr1 <> clr2 Then
                    MsgBox("Le immagini sono diverse")
                    Exit Sub
                End If

            Next px
        Next py

        MsgBox("Le immagini sono uguali!")

    End Sub