Private Sub TauscheFarbe(Quelle As PictureBox, alteFarbe&, neueFarbe&)
  Dim TPic As PictureBox
 
  Set TPic = Me.Controls.Add("VB.PictureBox", "P1")
  TPic.ScaleMode = vbPixels
  TPic.AutoSize = True
  TPic.AutoRedraw = True
  With Quelle
    .ScaleMode = vbPixels
    .AutoRedraw = True
    Set TPic.Picture = .Image
    Set .Picture = LoadPicture()
    .Cls
    .BackColor = neueFarbe
    Call TransparentBlt(.hDC, 0, 0, .ScaleWidth, .ScaleHeight, TPic.hDC, 0, 0, _
      .ScaleWidth, .ScaleHeight, alteFarbe)
  End With
  Me.Controls.Remove TPic
End Sub

Gruss,

Zardoz