Program Stopwatch Sederhana

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