Public Class LabelEx
    Inherits Label
 
    Dim _NormalFontsize As Decimal
 
    ''' <summary>Frische Eigenschaft zum Zwischenspeichern 
    ''' der regulären Fontgröße</summary>
    Public Property NormalFontSize() As Decimal
        Set(ByVal value As Decimal)
            _NormalFontsize = value
            'eventuell gleich zuweisen ...????
            MyBase.Font = New Font(MyBase.Font.Name, value)
        End Set
        Get
            Return _NormalFontsize
        End Get
    End Property
End Class
 
Mfg 
Manfred