Dim dt As DispatcherTimer = New DispatcherTimer
' Constructor
Public Sub New()
InitializeComponent()
dt.Interval = New TimeSpan(0, 0, 0, 0, 1000)
AddHandler dt.Tick, AddressOf Me.dt_Tick
dt.Start()
End Sub
Private Sub dt_Tick(ByVal sender As Object, ByVal e As EventArgs)
End Sub