ساعة إيقاف Stop watch

اخى العزيز هذا الكود سوف يساعدك

( Dim T As New Date(0

Dim LastTime As Date

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

T = T.Add(Now.Subtract(LastTime))

LastTime = Now

sw.Text = T.ToString("mm:ss")

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

LastTime = Now

T = New Date(0)

sw.Text = "00:00"

'Button1.Text = "go"

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

If Timer1.Enabled Then

Timer1.Enabled = False

' Button1.Text = "start"

Else

Timer1.Enabled = True

LastTime = Now

' Button1.Text = "stop"

End If

End Sub