System Timer and DataBinding

Imports System.ComponentModel
Imports System.Timers
 
Public Class Form1
 
    Private thisClass As New aClass
 
    Private lbl As System.Windows.Forms.Label
    Public Sub New()
 
        InitializeComponent()
 
        'create the label and add it to the form
        lbl = New Label
        lbl.Text = "some text"
        Me.Controls.Add(lbl)
 
        'set the data binding and start a timer
        lbl.DataBindings.Add("Text", thisClass, "X")
 
 
    End Sub
 
 
End Class
 
Public Class aClass
    Implements INotifyPropertyChanged
 
    Private WithEvents tmr As New System.Timers.Timer()
    Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
    Public Sub New()
 
        AddHandler tmr.Elapsed, AddressOf tmr_Elapsed
        tmr.Interval = 1000
 
        tmr.Start()
    End Sub
 
    Private Sub tmr_Elapsed(sender As Object, e As ElapsedEventArgs)
        'change the property value when the timer elapses
        X = Guid.NewGuid.ToString
    End Sub
 
 
    Private _x As String = ""
    Public Property X As String
        Get
            Return _x
        End Get
        Set(value As String)
            _x = value
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs("X"))
        End Set
    End Property
End Class