Imports System.Drawing.Drawing2D
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.Drawing.Imaging.ColorMatrix
Public Class ColorMatrix
Dim AlphaMatrix As Single(,) = { _
{1, 0, 0, 0, 0}, _
{0, 1, 0, 0, 0}, _
{0, 0, 1, 0, 0}, _
{0, 0, 0, 1, 0}, _
{0, 0, 0, 0, 1}}
End Class
Public Class Battle
',,, aqui va el sub Batte_Load. He ignorado el material sin importancia.
'Loading Easter Eggs
Dim LeftOver1 As Image = Image.FromFile(Application.StartupPath + "gfxleftover1.png")
LogTXT.Text = "System>Graphics loaded." + vbNewLine + LogTXT.Text
Dim AlphaMtx As New ColorMatrix(AlphaMatrix)
Dim AlphaAtt As ImageAttributes
'...material sin importancia ignorado!