Option Explicit
Public Zeit1
Public Zeit2
'Dim Zeit3 As Timer
Dim mdb_lauf As Database
Dim tb_zeit As Recordset 'vorgaenge werden in dieser tb aufgezeichnet
'Dim Zeit As Date
 
Public Function StopWatch( _
  Optional RunWatch As Boolean = True, _
  Optional TimeMask As String = "nn:ss") As String
 
  Static Start As Single
 
  Select Case RunWatch
    Case True
      ' Beginn der Zeitmessung
      Start = Timer: StopWatch = "0"
 
    Case Else
      ' Ende der Zeitmessung
      StopWatch = Format$(Int(Timer - Start) * _
        (1 / 86400), TimeMask & ":") & _
        Format$(((Timer - Start) - Int(Timer - Start)) * 1000, "000")
   End Select
End Function
 
Private Sub Command3_Click()
' Zeitmessung starten
Call StopWatch
End Sub
 
 
Private Sub Command4_Click()
' Zeitmessung beenden und Ergebnis
' in einem Label-Control anzeigen
Text4.Text = StopWatch(False)
End Sub