Program Stopwatch

Private Sub Exit_Click()

End

End Sub

Private Sub Form_Load()

Dim Ml, Det, Min, hr As Integer

Dim Counter As Integer

Ml = 0

Det = 0

Min = 0

hr = 0

End Sub

Private Sub Reset_Click()

Dim mYes_No As String, vbYesNo

If mYes_No = vbYes Then

Ml = 0

Det = 0

Min = 0

hr = 0

lblTime = ""

Timer1.Enabled = False

End If

End Sub

Private Sub Start_Click()

Timer1.Enabled = True

End Sub

Private Sub Stop_Click()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

Dim Ml2, Det2, Min2, hr2 As String

Countr = Countr + 1

Ml2 = Countr

If Countr = 10 Then

Det = Det + 1

Countr = 0

End If

If Det = 60 Then

Min = Min + 1

Det = 0

End If

If Min = 60 Then

hr = hr + 1

Min = 0

End If

Det2 = Format(Val(Det), "00")

Min2 = Format(Val(Min), "00")

hr2 = Format(Val(hr), "00")

lblTime = hr2 & ":" & Min2 & ":" & Det2 & ":" & Ml2

End Sub