Prova a usare questa funzione in VB:
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
=> che ti permette di ottenere un determinato pixel (date le coordinate)
...e poi potresti realizzare una funzione come questa (penso che sia giusta):
Private Sub ConfrontaIMG(img1 As PictureBox, img2 As PictureBox)
Dim x, y As Integer
Dim pixel1, pixel2 As Long
Dim pixeluguali, pixeltotali1, pixeltotali2, pixeldiversi As Integer
pixeluguali = 0
pixeltotali1 = 0
pixeltotali2 = 0
pixeldiversi = 0
'confronto le due immagini (in base ai pixel)
For x = 0 To img1.ScaleWidth
For y = 0 To img1.ScaleHeight
pixel1 = GetPixel(img1.hdc, x, y)
pixel2 = GetPixel(img2.hdc, x, y)
'confronto il due pixel trovati...
If pixel1 = pixel2 Then
pixeluguali = pixeluguali + 1
Else
pixeldiversi = pixeldiversi + 1
End If
pixeltotali1 = pixeltotali1 + 1
Next y
Next x
For x = 0 To img2.ScaleWidth
For y = 0 To img2.ScaleHeight
pixeltotali2 = pixeltotali2 + 1
Next y
Next x
MsgBox "Le due Immagini hanno: " & vbCrLf & "Pixel Totali IMG 1: " & pixeltotali1 & vbCrLf & "Pixel totali IMG 2: " & pixeltotali2 & vbCrLf & pixeldiversi & " pixel DIVERSI" & vbCrLf & pixeluguali & " pixel UGUALI", vbInformation
End Sub
ATTENZIONE: per utilizzarla, nelle due picture box cambia la scala (da Twip a Pixel)
Fammi sapere!