Private m_Timers As Timer
Protected Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.Click
m_Timers = New Timer()
m_Timers.Interval = 5000
AddHandler m_Timers.Tick, AddressOf m_Timers_Tick
m_Timers.Enabled = True
End Sub
Private Sub m_Timers_Tick(ByVal sender As Object, ByVal e As EventArgs)
lbltest.Text = "Hello Timer"
End Sub