Public Class MyControl
    Inherits UserControl
 
    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
 
    Private m_Font As Font = DEFAULT_FONT
    Public Overrides Property Font() As Font
        Get
            Return m_Font
        End Get
        Set(ByVal Value As Font)
            If Value Is Nothing Then
                m_Font = DEFAULT_FONT
            Else
                m_Font = Value
            End If
            'OnChanged()
        End Set
    End Property
End Class