HI.........
I HAVE TO GENERATE A CODE THAT ENABLE TO COMPARE TWO OR MORE IMAGES. BUT I HAVE MANY PROB. TO RUN
IT GIVES LOGICAL ERRORS MEANS NOT GIVING APPROPIATE OUTPUTS
PLZ CHECK IT.

CODE IS :->

Sub Check()
Dim boomismatch As Boolean
Dim x As Integer
Dim y As Integer
boomismatch = False
For y = 1 To Picture1.Height
For x = 1 To Picture1.Width
If Picture1.Point(x, y) = Picture2.Point(x, y) Then
Picture1.PSet (x, y), RGB(255, 0, 0)
boomismatch = True
Exit For
End If
Next x
If boomismatch = True Then
Exit For
End If
Next y
If boomismatch = True Then
MsgBox "not same"
c = 0
Else
MsgBox "same"
MsgBox Picture1.Name
c = 1
Exit Sub
End If
End Sub

PLZ CHECK IT & SEND IT TO ME. ITS REALLY VERY VERY URGENT 2 ME
BYE