Sub timerA_Tick
periode1 = DateUtils.PeriodBetween(DateTime.Now, dataX)
Dim count As Int = periode1.Minutes*60+periode1.Seconds
If count >= 0 Then
label1.Text = periode1.Minutes & ":" & periode1.Seconds
'If label1.Text = "0:0" Then
Else
ToastMessageShow("refresh", False)
' to stop use this
'timerA.Enabled = False
'
' if you want to reset then you need to set dataX new
'
Dim p As Period
p.Seconds = 10
dataX = DateUtils.AddPeriod(DateTime.Now, p)
End If
End Sub