Function MakeAlphaSprite(ByVal bmp As Bitmap, ByVal Blend!) As Bitmap
      Dim tmp As Bitmap = New Bitmap(bmp.Width, bmp.Height)
      Dim ColorMatrix As New Imaging.ColorMatrix()  ' Standartmatrix
      ColorMatrix.Matrix33 = Blend
      ' Create an ImageAttributes object and set its color matrix.
      Dim imageAtt As New Imaging.ImageAttributes
      imageAtt.SetColorMatrix(ColorMatrix, Imaging.ColorMatrixFlag.Default, _
        Imaging.ColorAdjustType.Bitmap)
      Graphics.FromImage(tmp).DrawImage(bmp, New Rectangle(0, 0, bmp.Width, _
      bmp.Height), 0, 0, bmp.Width, bmp.Height, GraphicsUnit.Pixel, imageAtt)
      Return tmp
   End Function