Function compareimage(image12 As PictureBox, Image11 As PictureBox) As Integer
Dim Xp As Long, Yp As Long, Xd As Long, Yd As Long, i As Long, j As Long
Dim P1, P2
Dim a1, a2
Dim G As Long, M As Long
image12.ScaleMode = vbPixels 'to Pixel mode
Image11.ScaleMode = vbPixels

DoEvents
Xp = image12.ScaleWidth
Yp = Image11.ScaleHeight
a1 = (Xp) * (Yp)
'Picture11.Cls
For i = 0 To Xp - 1
For j = 0 To Yp - 1
P1 = GetPixel(image12.hDC, i, j) 'Get colour from images pixel by pixel
P2 = GetPixel(Image11.hDC, i, j)
If P1 = P2 Then
G = G + 1
'a2 = SetPixel(Picture11.hDC, i, j, P2) 'Set pixel to result's image
Else
If (P1 < (P2 + 1000000) And P1 > (P2 - 1000000)) Then
G = G + 1
'a2 = SetPixel(Picture11.hDC, i, j, P2)
Else
'a2 = SetPixel(Pic(3).hDC, i, j, P2)
'M = M + 1
End If
End If
Next
'Label24.Caption = "Match:" & Round((G * 100) / a1, 4) & " %"
compareimage = Round((G * 100) / a1, 4)
Next