Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
    System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        Dim Bitmap1 As New System.Drawing.Bitmap("D:\test1.jpg")
        Dim Bitmap2 As New System.Drawing.Bitmap("D:\test2.jpg")
 
        Dim matrixItems As Single()() = { _
                  New Single() {1, 0, 0, 0, 0}, _
                  New Single() {0, 1, 0, 0, 0}, _
                  New Single() {0, 0, 1, 0, 0}, _
                  New Single() {0, 0, 0, 0.6F, 0}, _
                  New Single() {0, 0, 0, 0, 1}}
 
        Dim colorMatrix As New System.Drawing.Imaging.ColorMatrix(matrixItems)
 
        Dim imageAtt As New Imaging.ImageAttributes()
        imageAtt.SetColorMatrix(colorMatrix, Imaging.ColorMatrixFlag.Default, _
          Imaging.ColorAdjustType.Bitmap)
 
        'Bitmap zeichenen
        e.Graphics.DrawImage(Bitmap1, 10, 10)
        'Alpha-Blend Picture obendrüber....
        e.Graphics.DrawImage(Bitmap2, New Rectangle(10, 10, Bitmap2.Width, _
          Bitmap2.Height), 0, 0, Bitmap2.Height, Bitmap2.Height, _
          GraphicsUnit.Pixel, imageAtt)
    End Sub

Gru?

Silver