Egg like timer

Here's a modified version that displays the elapsed time as requested: Dim dtInit As Int64 Private Sub Start() dtInit = Environment.TickCount Timer1.Interval = 100 ' display interval of 100 ms. Timer1.Enabled = True End Sub Private Sub Finish() Dim ts1 As TimeSpan = UpdateDisplay() Timer1.Enabled = False MessageBox.Show(ts1.ToString) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Start() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Finish() End Sub Private Function UpdateDisplay() As TimeSpan Dim dtFin As Int64 = Environment.TickCount Dim ts1 As TimeSpan ts1 = New TimeSpan(0, 0, 0, 0, dtFin - dtInit) ' display in milliseconds TextBox1.Text = ts1.ToString Return ts1 ' to ensure same value between messagebox and textbox End Function Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick UpdateDisplay() ' every timer.interval milliseconds End Sub

here u go Private m_initialMillis As Int64 Public Sub startTimer() m_initialMillis = Environment.TickCount End Sub Public Sub stopTimer() Dim totalMillis As Int64 = Environment.TickCount - m_initialMillis Dim _timeSpan As New TimeSpan(0, 0, totalMillis / 1000) MessageBox.Show(_timeSpan.ToString()) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click startTimer() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click stopTimer() End Sub