StopWatch: ElapsedMilliseconds : Stopwatch « Date Time « VB.Net Tutorial

1. VB.Net Tutorial
2. Date Time
3. Stopwatch

Public Class Tester
    Public Shared Sub Main
        Dim lastMillis As Long
        Dim numMillis As Long
        Dim testWatch As New System.Diagnostics.Stopwatch
        Dim endTime As Date
        Dim results As String

        endTime = Now.AddSeconds(1)
        testWatch.Start()
        Do
            If (testWatch.ElapsedMilliseconds <> lastMillis) Then
                numMillis += 1
                lastMillis = testWatch.ElapsedMilliseconds
            End If
        Loop Until (Now > endTime)

        results = "Elapsed milliseconds:  " & _
           testWatch.ElapsedMilliseconds.ToString & vbNewLine & _
           "Number of updates per second: " & numMillis.ToString
        Console.WriteLine(results)
    End Sub

End Class

Elapsed milliseconds:  1001
Number of updates per second: 1001