Dim i&, j&, C1&, C2&
 
  Me.MousePointer = vbArrowHourglass
  C1 = RGB(255, 255, 0) ' Farbe 1
  C2 = RGB(0, 0, 255) ' Farbe 2
  With Picture2
    .ScaleMode = vbPixels
    .BackColor = vbWhite
    .AutoRedraw = True
  End With
  With Picture1
    .ScaleMode = vbPixels
    .AutoRedraw = True
    For i = 0 To .ScaleWidth - 1
      For j = 0 To .ScaleHeight - 1
        Select Case .Point(i, j)
          Case C1, C2
            Picture2.PSet (i, j), vbBlack
        End Select
      Next j
      DoEvents
    Next i
  End With
  Me.MousePointer = vbDefault

Gruss,

Zardoz