http://www.your-save-time-and-improve-quality-technologies-online-resource.com/win32-vba-api.html


http://www.your-save-time-and-improve-quality-technologies-online-resource.com/vba-timer.html


Dim dteStart As Date, dteFinish As Date
Dim dteStopped As Date, dteElapsed As Date
Dim boolStopPressed As Boolean, boolResetPressed As Boolean
   
Private Sub btnReset_Click()
    dteStopped = 0
    dteStart = 0
    dteElapsed = 0
    Label1 = "00:00:00"
    boolResetPressed = True
End Sub

Private Sub btnStart_Click()

Start_timer:
    dteStart = Time
    boolStopPressed = False
    boolResetPressed = False

Timer_Loop:
    DoEvents
    dteFinish = Time
    dteElapsed = dteFinish - dteStart + dteStopped
    If Not boolStopPressed = True Then
        Label1 = dteElapsed
        If boolResetPressed = True Then GoTo Start_timer
        GoTo Timer_Loop
    Else
        Exit Sub
    End If
End Sub

Private Sub btnStop_Click()
    boolStopPressed = True
    dteStopped = dteElapsed
End Sub

Private Sub UserForm_Initialize()
    Label1 = "00:00:00"
End Sub