I know this has been asked previously, but I can't seem to find an answer that fits what I'm looking for.

Need to have a timer reset and start counting down again automatically. I would like to use a loop to do it if possible, as I will be using the loop count later in the program. Here is what I have so far, the counter rolls back to zero but I can't seem to find a way to get it to restart again. For testing I set the time to .1 but it will be set for 2 hours (120) when its working.

Public Class Escaltion_Timer
Dim myTime As Integer
Private alarmTime As Date


Private Sub ButtonStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonStart.Click
Me.Text = TextBox1.Text
Timer1.Enabled = True
Me.alarmTime = Date.Now.AddMinutes(0.1)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim i As Integer
If alarmTime < Date.Now Then
Me.Timer1.Stop()
MessageBox.Show("Next Escalation")
Do Until i = 5
i = i + 1
Loop
Else
Dim remainingTime As TimeSpan = Me.alarmTime.Subtract(Date.Now)
Me.LabelStage.Text = String.Format("{0}:{1:d2}:{2:d2}", _
remainingTime.Hours, _
remainingTime.Minutes, _
remainingTime.Seconds)
End If
LabelProgress.Text = i
End Sub
End Class


The loop sits at 0 like I want until the messagebox comes up and then instead of the process restarting with loop of 1 and counting down, clicking ok on the message box causes the loop to go straight to 5 and the program ends. If I click on the start button again however, everything does restart. I appreciate any suggestions. Please keep in mind I am completely new to this so try to keep it simple for me...