Private LastStop As Double
 
    Private Sub cmdStopTime_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdStopTime.Click
 
        If cmdStopTime.Text = "Stop &Timer" Then
            MsgBox("Seit dem letzten Click sind " & ExactTimer_Value() - _
              LastStop & " Sekunden vergangen")
            cmdStopTime.Text = "&Start Timer"
            Exit Sub
        End If
 
        cmdStopTime.Text = "Stop &Timer"
        LastStop = ExactTimer_Value()
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles MyBase.Load
        cmdStopTime.Text = "&Start Timer"
        Init_ExactTimer()
    End Sub

    Private Declare Function QueryPerformanceFrequency Lib "kernel32" (ByRef _
      Frequency As Double) As Integer
 
    Private Declare Function QueryPerformanceCounter Lib "kernel32" (ByRef _
      TimerValue As Double) As Integer
 
    Private i_Frequency As Double
 
    Public Sub Init_ExactTimer()
        QueryPerformanceFrequency(i_Frequency)
    End Sub
 
    Public Function ExactTimer_Value() As Double
        QueryPerformanceCounter(ExactTimer_Value)
        ExactTimer_Value = ExactTimer_Value / i_Frequency
    End Function