Dim i%, j%, k%, FlgFound As Boolean
 
Me.MousePointer = vbHourglass
Picture1.ScaleMode = vbPixels
Picture1.AutoRedraw = True
With Picture2
  .ScaleMode = vbPixels
  .AutoRedraw = True
  For k = 0 To Picture1.ScaleWidth - 1 - .ScaleWidth
    FlgFound = True
    For i = 0 To .ScaleWidth - 1
      For j = 0 To .ScaleHeight - 1
        If .Point(i, j) <> Picture1.Point(i + k, j) Then
          FlgFound = False
          Exit For
        End If
      Next j
      If FlgFound = False Then Exit For
    Next i
    If FlgFound = True Then Exit For
    DoEvents
  Next k
End With
Me.MousePointer = vbDefault
If FlgFound = True Then
  MsgBox "Gefunden bei Position " & k
Else
  MsgBox "Nix gefunden"
End If

Gruss,

Zardoz