' Zwei Bilder miteinander vergleichen
' Rückgabewert: True, wenn Bilder identisch
'               False, wenn Bilder unterschiedlich
'
Private Function PicCompare(Pic1 As Control, _
  Pic2 As Control) 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.Image
    vContents1 = .Contents
  End With
 
  ' 2. Bild speichern und Inhalt zwischenspeichern
  Set myPropBag = New PropertyBag
  With myPropBag
    .WriteProperty "Picture", Pic2.Image
    vContents2 = .Contents
  End With
 
  ' Bilder vergleichen
  PicCompare = (CStr(vContents1) = CStr(vContents2))
End Function

Joachim