Afficher la police "Marlett"

Class Label_Marlett : Inherits Label

        Protected Overrides Sub OnTextChanged(e As EventArgs)
            MyBase.OnTextChanged(e) : Invalidate()
        End Sub

        Sub New()
            SetStyle(ControlStyles.SupportsTransparentBackColor, True)
            Font = New Font("Marlett", 10)
            ForeColor = Color.Black
            BackColor = Color.Transparent
            Text = Text
        End Sub

    End Class