Dim SW&, SH&, Alpha&, XPos&, YPos&
 
  Alpha = 128 ' Transparenz: 0 - 255
  ' Koordinaten des Gif-Bildes im Hintergrundbild:
  XPos = 80
  YPos = 120
  With Picture2 ' Enthält das Hintergrundbild
    .ScaleMode = vbPixels
    .AutoRedraw = True
    .Visible = False
  End With
  With Picture3 ' Enthält das Gif-Bild
    .ScaleMode = vbPixels
    .AutoRedraw = True
    SW = .ScaleWidth
    SH = .ScaleHeight
    .Visible = False
  End With
  With Picture1 ' Ergebnis
    .ScaleMode = vbPixels
    .BorderStyle = Picture2.BorderStyle
    .Width = Picture2.Width
    .Height = Picture2.Height
    .AutoRedraw = True
    .Cls
    Call BitBlt(.hdc, 0, 0, .ScaleWidth, .ScaleHeight, _
      Picture2.hdc, 0, 0, vbSrcCopy)
    Call TransparentBlt(.hdc, XPos, YPos, SW, SH, _
      Picture3.hdc, 0, 0, SW, SH, GetPixel(Picture3.hdc, 0, 0))
    Call AlphaBlend(.hdc, XPos, YPos, SW, SH, _
      Picture2.hdc, XPos, YPos, SW, SH, Alpha * &H10000)
    .Visible = True
  End With

Gruss,

Zardoz