图像比较问题

Question

最近在写一个程序，涉及到图片比较问题，希望大家能帮忙解决一下。
有两张图片a,b     b大部分和a一样，只有一小点不一样，想让程序把b中和a不一样的部分用其他颜色表示出来，在picture中显示
网上说是要比较两张图片的RGB ，可是我实在不知道是哪个函数，有高手还希望指教一下，给个例子也行，先谢过了·

Answer 1

getpixel取像双循环取像素RGB颜色值进行比较，这样可行吗？这样可能效率会很低。

Answer 2

已解决，把源码发过来给关注的人
Private Sub find_difference()
Dim xlen As Long
Dim hdc As Long
Dim x As Long, y As Long
Dim lcolor As Long, Rcolor As Long, Scolor As Long
xlen = X2 - X1
hdc = GetDC(0)
Scolor = SelectColor()
For y = Y1 To (Y1 + L)
  For x = X1 To (X1 + K)
    lcolor = GetPixel(hdc, x, y)
    Rcolor = GetPixel(hdc, x + xlen, y)
      If IsSame(lcolor, Rcolor) = True Then
         t = SetPixel(Picture3.hdc, (x - X1) / 3, (y - Y1) / 3, Rcolor)
      Else
         t = SetPixel(Picture3.hdc, (x - X1) / 3, (y - Y1) / 3, Scolor)
      End If
  Next x
Next y
End Sub实现了扫描屏幕上的两幅图片，做比较(issame)后，把差异用其他颜色(selectcolor)输出 
程序效果还可以，就是效率问题有待解决，希望有高手指点

Answer 3

Option Explicit'大家来找茬
Private Sub Command1_Click()
    Picture1.PaintPicture Picture2.Image, 0, 0, , , , , , , vbSrcInvert
End SubPrivate Sub Form_Load()
    Picture1.AutoRedraw = True
    Picture1.ScaleMode = vbPixels
    Picture1.Line (0, 0)-(100, 100)
    
    Picture2.AutoRedraw = True
    Picture2.ScaleMode = vbPixels
    Picture2.Line (0, 0)-(100, 100)
    Picture2.Circle (50, 50), 10
End Sub