I have 3 sets of toggle buttons that I would like to use to add various times to my stopwatch which I want displayed in Label132's .caption
I do not know how to pass my variable through to my module I have.
Which I would like to add 6 minutes and start my timer. Which is contained in module to with the below code.
Let me know if more information is needed any help is appreciated.
Thanks
I do not know how to pass my variable through to my module I have.
Code:
Private Sub ToggleButton1_Click()
Call StartTimer
End Sub
Which I would like to add 6 minutes and start my timer. Which is contained in module to with the below code.
Code:
Dim NextTick As Date, t As Date
Sub StartStopWatch()
t = Time
Call StartTimer
End Sub
Sub StartTimer()
NextTick = Time + TimeValue("00:06:00")
Label132.Caption = Format(NextTick - t - TimeValue("00:00:01"), "hh:mm:ss")
Application.OnTime NextTick, "StartTimer"
End Sub
Sub StopTimer()
On Error Resume Next
Application.OnTime EarliestTime:=NextTick, Procedure:="StartTimer", Schedule:=False
End Sub
Let me know if more information is needed any help is appreciated.
Thanks