Наследование Label и расширение его свойств - Visual Basic .NET

Формулировка задачи:

Всем здравствуйте. Как создать элемент управления-расширитель свойств и методов стандартного Label (без графической части). К нему нужно добавить пару новых строковых свойств и свойства элемента Timer. Элемент управления должен обрабатывать кроме событий стандартного Label события Timer. Если есть ссылка на простой пример подобного, пожалуйста поделитесь.

Решение задачи: «Наследование Label и расширение его свойств»

textual
                            Листинг программы 
                        

                            Public Class ExtendedLabel
    Inherits Label
    Property Timer() As New Timer
    'Это событие будет видно в списке событий для ExtendedLabel
    Public Event TimerTick(ByVal sender As Object, ByVal e As EventArgs)
 
    Public Sub New()
        'Присвоение обработчика тика внутреннего таймера
        AddHandler Timer.Tick, AddressOf OnTimerTick
    End Sub
 
    Protected Friend Sub OnTimerTick()
        'По внутреннему таймеру вызываем событие
        RaiseEvent TimerTick(Me, New EventArgs())
    End Sub
End Class
                        