need help on my timer program[ResolveD]

[taxes]

HI,

Cured it!!

Dim ZeroTime As Date    '  Form scope
Dim RunTime As Date 
Dim EndTime As Date  ' depends on whether you are going
                                       to use a time or a period
Dim bTimer As Boolean = False
 
  Private Sub ButtonStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
 
        ZeroTime = Format(CDate("00:00:00"), "HH:mm:ss")
        RunTime=ZeroTime
        Timer1.Enabled = True
        Timer1.Interval = 1000
 
 
    End Sub
 
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 
  If bTimer = False Then
        RunTime = RunTime.AddSeconds(1)
        TextBox3.Text = (CStr(Format(RunTime, "HH:mm:ss")))
        Here put code to check if EndTime has been reached or
        passed.
  End If
 
    End Sub
 
 Private Sub btnPause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPause.Click
        If btnPause.Text = "Pause" Then
            btnPause.Text = "Resume"
            bTimer = True
        Else
            btnPause.Text = "Pause"
            bTimer = False
        End If
    End Sub

If you want to count down then amend the appropriate line to

RunTime = RunTime.AddSeconds(-1)