Zitat:

Gibt es da Abhilfe, dass ebenfalls transparente Bereiche mit übergeblendet werden - aber eben durchsichtig?

  Dim Pic1 As StdPicture, Pic2 As StdPicture
  Dim SW&, SH&, Alpha&, P1hdc&, P1OldPic&
 
  Set Pic1 = LoadPicture("C:\Bild1.jpeg") ' Pfad Hintergrundbild
  Set Pic2 = LoadPicture("C:\Bild2.gif") ' Pfad Gif-Bild
  Alpha = 128 ' Transparenz: 0 - 255
  P1hdc = CreateCompatibleDC(0)
  P1OldPic = SelectObject(P1hdc, Pic2.Handle)
  With Picture1
    .ScaleMode = vbPixels
    .AutoSize = True
    Set .Picture = Pic1
    .AutoRedraw = True
    SW = CLng(.ScaleX(Pic2.Width, vbHimetric))
    SH = CLng(.ScaleY(Pic2.Height, vbHimetric))
    Call TransparentBlt(.hdc, 0, 0, SW, SH, _
      P1hdc, 0, 0, SW, SH, GetPixel(P1hdc, 0, 0))
    Call SelectObject(P1hdc, Pic1.Handle)
    Call AlphaBlend(.hdc, 0, 0, SW, SH, _
      P1hdc, 0, 0, SW, SH, Alpha * &H10000)
  End With
  Call SelectObject(P1hdc, P1OldPic)
  Call DeleteDC(P1hdc)
  Set Pic1 = LoadPicture()
  Set Pic2 = LoadPicture()

Gruss,

Zardoz