' Deklaration
Private m_TextFont As Font
' Default-Werte
Private Shared m_def_TextFont As Font = New Font("Arial Narrow", 9.75!, _
  FontStyle.Bold, GraphicsUnit.Point, 0)
 
' Konstruktor
Public Sub New()
        ' Property-Member Initialisieren
        Me.m_TextFont = m_def_TextFont 
End Sub
 
' Property
    <DefaultValue(GetType(Font), "Arial Narrow, 9.75pt, style=Bold")> _
    Public Property TextFont() As Font
        Get
            Return Me.m_TextFont
        End Get
        Set(ByVal value As Font)
            Me.m_TextFont= value
             Me.Refresh()
        End Set
    End Property