[VB6] - Compare images the fast way

[DigiRev]

This can take 2 (large) pictures and tell you if they're the same or different much quicker than using GetPixel or other methods.

This uses the GetDIBits() API function.

If anyone has suggestions to make it faster than it naturally is than let me know.

To use the code, just add ModImageCompare.bas to your project and call the ImagesSame() function, like this:

Dim bolSame As Boolean
 
bolSame = ImagesSame(PictureBox1, PictureBox2)
MsgBox bolSame