Private DEFAULT_FONT As Font = New Font("Tahoma", 12)
 
 
    <EditorBrowsable(EditorBrowsableState.Never)> _
    Public Function ShouldSerializeFont() As Boolean
        Return Not Font.Equals(DEFAULT_FONT)
    End Function
 
    <EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Sub ResetFont()
        Font = Nothing
    End Sub
 
    Public Overrides Property Font() As Font
        Get
            Return MyBase.Font
        End Get
        Set(ByVal Value As Font)
            If Value Is Nothing Then
                MyBase.Font = DEFAULT_FONT
            Else
                MyBase.Font = Value
            End If
            'OnChanged()
        End Set
    End Property