Sub AlphaBlend(ByVal Grapic As Graphics, ByVal Bitmap As Bitmap, ByVal X%, _
  ByVal Y%, ByVal Blend!)
      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)
       Grapic.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)
end Sub