Alpha4niggers

Class Alphashit
    Inherits ThemeControl154
    Dim lb As New Windows.Forms.Label
    Sub New()
        SetStyle(DirectCast(139286, ControlStyles), True)
        SetStyle(ControlStyles.Selectable, False)
        IsAnimated = True
        Font = New Font("Verdana", 8.0F, FontStyle.Regular)
        Size = New Size(39, 13)


    End Sub

    Private _text As String = "Label"
    Public Overrides Property Text As String
        Get
            Return _text
        End Get
        Set(ByVal value As String)
            _text = value
            Invalidate()
        End Set
    End Property

    Protected Overrides Sub ColorHook()

    End Sub

    Protected Overrides Sub PaintHook()
        G.Clear(BackColor)
        G.DrawString(Text, Font, New SolidBrush(Color.FromArgb(mAlpha, Color.FromArgb(69, 202, 83))), New PointF(0, 0))

    End Sub
    Dim mAlpha As Integer = 0
    Protected Overrides Sub OnAnimation()
        If Not mAlpha = 255 Then
            mAlpha += 1
        End If
    End Sub
End Class