Yes, there is!
At least in my VS2008 it works!
Code:
    
    Private _MyFont As New Font("Times New Roman", 18, FontStyle.Bold)
<CategoryAttribute("Application"), Browsable(True), _
        DescriptionAttribute("Application Font"), DefaultValue(GetType(Font), "Times New Roman,18,Bold")> _
    Public Property MyFont() As Font
        Get
            Return _MyFont
        End Get
        Set(ByVal value As Font)
            _MyFont = value
            Me.Invalidate()
        End Set
    End Property
Work perfectly!