継承したコントロールで、プロパティの規定値を変更する方法

Public Class LabelEx
    Inherits Label

    Public Sub New()
        MyBase.New()

        ' 初期値を設定
        Me.AutoEllipsis = True  ' 表示しきれないテキストを「...」で示して、ツールチップ表示する

    End Sub

    ' 既定値を設定 (ほんとうはOverridesを使いたいが、継承不可に設定されているため)
    <DefaultValue(True)>
    Public Shadows Property AutoEllipsis As Boolean
        Get
            Return MyBase.AutoEllipsis
        End Get
        Set(value As Boolean)
            MyBase.AutoEllipsis = value
        End Set
    End Property

End Class