tmr.Interval = 10
tmr.Enabled = True
AddHandler tmr.Tick, AddressOf TimerEventHandler
ctr += 1
Label1.Text = ctr
If ctr >= 50 Then
ctr = 0
tmr.Enabled = False
End If