Postavi Text Box koji se zove recimo stoperica i komande cmdStart i cmdStop. Postavi format za Text Box "hh:nn:ss" i prekopiraj sledeći kod u form
Option Compare Database
Option Explicit
Dim StartTime As Double
Private Sub cmdStart_Click()
StartTime = Time
Me.TimerInterval = 500
End Sub
Private Sub Form_Timer()
Stoperica.Value = Time - StartTime
End Sub
Private Sub cmdStop_Click()
Me.TimerInterval = 0
End Sub
Ozbiljan i odgovoran mladić