With picZwischenspeicher
Set .Picture = scLand(Zähler).Picture
.AutoSize = True
.AutoRedraw = True
.ScaleMode = 3
For i = 0 To .ScaleWidth - 1
  For j = 0 To .ScaleHeight - 1
    If .Point(i, j) = Farbe1 Then
 
      picZwischenspeicher.PSet (i, j), Farbe2
    End If
 
  Next j
  DoEvents
Next i
End With
 
 
With Speicherer
  ' Größe der unsichtabren PictureBox festlegen
  .BorderStyle = 0
  .Width = picZwischenspeicher.Width
  .Height = picZwischenspeicher.Height
 
  ' Wichtig: AutoRedraw = True
  .AutoRedraw = True
 
  ' Bild aus ImageBox übertragen
  .PaintPicture picZwischenspeicher.Picture, 0, 0, _
    picZwischenspeicher.Width, picZwischenspeicher.Height
 
  ' Bild abspeichern
  SavePicture .Image, "c:\bild.bmp"