Public Overrides Property Font() As System.Drawing.Font
        Get
            Dim f As Font
            f = MyBase.Font
            'mach was mit der Font
            Return f
        End Get
        Set(ByVal Value As System.Drawing.Font)
            'mach was mit der Font
            MyBase.Font = Value
        End Set
    End Property