Option Explicit
 
Private Sub Command1_Click()
    Dim Pic1 As StdPicture
    Dim Pic2 As StdPicture
 
    ' Hier die Pfade zu den Bildern eingeben ...
    Set Pic1 = LoadPicture("C:\Bild1.bmp")
    Set Pic2 = LoadPicture("C:\Bild2.bmp")
 
    ' ... und dann prüfen
    MsgBox PicCompare(Pic1, Pic2)
End Sub
 
' Zwei Bilder miteinander vergleichen
' Rückgabewert: True, wenn Bilder identisch
'               False, wenn Bilder unterschiedlich
Public Function PicCompare(Pic1 As StdPicture, _
                           Pic2 As StdPicture) As Boolean
 
  Dim myPropBag As PropertyBag
  Dim vContents1 As Variant
  Dim vContents2 As Variant
 
  ' 1. Bild speichern und Inhalt zwischenspeichern
  Set myPropBag = New PropertyBag
  With myPropBag
    .WriteProperty "Picture", Pic1
    vContents1 = .Contents
  End With
 
  ' 2. Bild speichern und Inhalt zwischenspeichern
  Set myPropBag = New PropertyBag
  With myPropBag
    .WriteProperty "Picture", Pic2
    vContents2 = .Contents
  End With
 
  ' Bilder vergleichen
  PicCompare = (CStr(vContents1) = CStr(vContents2))
End Function