Function AlphaBlend(ByVal Graphic As Graphics, ByVal Bitmap As Bitmap, _
      ByVal X%, ByVal Y%, ByVal Blend!) As Bitmap
        Dim ColorMatrix As New Imaging.ColorMatrix()  ' Standartmatrix
        ColorMatrix.Matrix33 = Blend
        Dim imageAtt As New Imaging.ImageAttributes
        imageAtt.SetColorMatrix(ColorMatrix, Imaging.ColorMatrixFlag.Default, _
          Imaging.ColorAdjustType.Bitmap)
        Graphic.DrawImage(Bitmap, New Rectangle(X - Bitmap.Width \ 2, Y - _
        Bitmap.Height \ 2, Bitmap.Width, Bitmap.Height), 0, 0, Bitmap.Width, _
        Bitmap.Height, GraphicsUnit.Pixel, imageAtt)
        Return Bitmap
    End Function
 
 
            Dim g As Graphics = Graphics.FromImage(Bild)
            Bild.Save("C:\Ohne Alphablending.png")
            Bild = AlphaBlend(g, Bild, 100, 50, 0.6)
            BildSave("C:\Mit Alphablending.png")